Het bestuur van de 6502 Kenners zoekt 
voor haar nog op te richten bullet inboard 
een 

SYSOP 

De sysop beheert de soft- en hardware van 
het bulletin-board. De hardware bestaat 
uit een IBM(achtige) PC met 20 Mb 
Winchester. Van de sysop wordt verwacht 
dat hij zorgt dat het bulletin-board op 
de aangewezen tijden bereikbaar is, dat 
hij vragen van leden beantwoord en zorg 
draagt voor een redelijke mate van 
discipline van de gebruikers . Vooral in 
het begin zal dit een behoorlijke tijds- 
inspanning vragen. Derhalve dient de 
sysop over een grote dosis enthousiasme 
te beschikken. Geinteresseerden wordt 
verzocht kontakt op te nemen met de 
secretaris . 



Het bestuur van de 6502 Kenners zoekt op 
korte termijn een 

REDACTEUR 

De redacteur is verantwoordeli j k voor 
het redigeren en opmaken van het 
verenigingsblad ' de 6502 Kenner'.Hij 
heeft namens het bestuur daarin een grote 
mate van vrijheid. In zijn werkzaamheden 
wordt de redacteurbij ges taan door een 
redactie van meerdere personen. De 
redacteur neemt deel aan de vergader ingen 
van het bestuur. 

Geinteresseerden worden verzocht kontakt 
op te nemen met de secretaris. 
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Medewerkers : 
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Gehele of gedeeltelijke overname van de 
inhoud van de 6502 KENNER zonder 
toestemming van het bestuur is verboden. 
Toepassing van gepubliceerde programma's, 
hardware etc. is alleen toegestaan voor 
persoonlijk gebruik. 

De 6502 KENNER verschijnt 6 x per jaar en 
heeft een oplage van 500 exemplaren. 

Copyright (C) 1987 KIM Gebruikers Club 
Nederland . 

I.v.m. auteurswetgeving aanvaardt de 
redaktie geen aansprakelijkheid voor 
inzendingen. Tenzij anders aangegeven, 
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De voorpagina is een aquarel van de Kim, 
een DOS65 controller. 



Het bestuur van de 6502 Kenners zoekt op 
korte termijn een 



Fotografie: Frank Visschedijk. 



PENNINGMEESTER 



De penningmeester is als lid van het 
dagelijks bestuur belast met het beheer 
van de financien van de vereniging. Hij 
draagt zorg voor een correcte financiele 
administratie . Daarnaast dient de 
penningmeester er zorg voor te dragen dat 
er tijdig een begroting en een financieel 
jaarverslag wordt gemaakt . 

Geinteresseerden wordt verzocht kontakt 
op te nemen met de secretaris. 



Aan all* leden van de "KIM-Gebruikers club Nederland" 

Op een beatuursvergaderlng in September 1987 heeft het bestuur 
bealoten de samenwerking met Willem van Pelt op te zeggen. 
Naar we hebben vernomen van het bestuur is dit een gevolg van 
een konflikt vat al een jaar speelt. 

Osriat ondergetekenden van mening zijn dat Willem van Pelt tot 
nu toe da spil is geweest van onze computer club, roept deze 
besllssing bij ons de volgende vragen op: 

-Waaroa heeft het bestuur in dit konflikt, hetgeen zijzelf als 
belangrljk heeft opgevat, geen enkele mededeling aan de leden 
gedaan door middel van een artikel in de 6502 kenner, maar 
heeft zij hiermee gewacht tot het besluit omtrent het 
beeindigen van de samenwerking met Willem van Pelt een feit 
was? 

-Waaroa heeft het bestuur geen enkele poging ondernomen het 
konflikt op een van de bi jeenkomsten met de leden te 
bespreken? 

-Waaroa heeft het bestuur de overige redactieleden niet 
benaderd over het konflikt en gepoogd in overleg met hen tot 
een oploasing te komen? 

-Waaroa heeft het bestuur niet besloten deze belangrljke 
besllssing voor te leggen aan de ledenvergadering in november 
1987? (Dit zou als bljkomend voor deel hebben gehad dat de 
distributie van software niet in het gedrang zou zijn gekomen 
zoals nu het geval is.) 

-Op welke gronden is de samenwerking met Willem van Pelt 
opgezegd? 

-Is dit een gevolg van willekeur van het bestuur jegens de 
persoon Willea van Pelt? 

-Heeft dit te maken met beleidskwesties met betrekking tot de 
toekoast atrategie van de KIM-Gebruikers club Nederland en 
verachillende inzichten hier over, waardoor samenwerking 
tussen de betrokken personen onmogelijk bleek? 

-Is dit gebeurd op grond van schrif teli jke klachten van leden 
van de club? 

-Is de indruk juist dat het bestuur de leden van de vereniging 
aoedwillig informatie onthoudt, en op geen enkele manier 
inspraak van de leden duldt anders dan op een 
ledenvergadering? 

Het bestuur heeft op de bijeenkomst op 19 September in Haarlem 
toegezegd dat deze kwestie zal worden besproken in de 
ledenvergadering op 14 november. Gezien de merkwaardige en, 
voor de leden, duistere gang van zaken eisen wij van het 
bestuur dat: 

-Het bestuur terugkomt op haar besluit de samenwerking met 
Willea van Pelt op te zeggen. 

-Het bestuur uiteen zet hoe zij de communicatie tussen bestuur 
en de leden denkt te verbeteren. 

-Het bestuur inhoudelijke mededelingen doet over het konflikt 
met Willea van Pelt teneinde hlerover een open discussle te 
hebben . 

Oadat het van het grootste belang is dat deze zaak wordt 
besproken met zoveel mogelljk leden, roepen wij een ieder met 
klea op da ledenvergadering van 14 november bij te wonen 
teneinde tot een weloverwogen besluit te komen. Indien het 
bestuur niet zelf terugkomt op haar besluit de samenwerking 
set Willea van Pelt op te zeggen, zal een motie waarin het 
bestuur wordt gevraagd dit alsnog te doen worden ingedlend. 
Indien het niet aogelljk is de vergadering zelf bij te wonen 
verzoeken wij U een volmacht voor deze stemming, vergezeld van 
een steaadvles, te zenden aan: 



To all members of the "KIM-gebruikers club Nederland" 

At a board-meeting in September 1987, the board decided to 
dismiss Willem van Pelt of his duties as chief editor of "De 
6502 Kenner". According to the board this is the result of a 
conflict that has lasted for a year already. 

The undersigners share the opinion that Willem van Pelt is th< 
spirit of our computerclub. Therefore the following questions 
arise regarding this decision: 

-The board stated to consider the conflict as important. Why 
didn't they inform the members by means of an article in 
until the decision was made? 

-Why has there never been any attempt to discuss this conflict 
with members who were attending the meetings? 

-Why has there never been any attempt to discuss this conflict 
with the other members of the editorial staff in order to 
solve the problems? 

-Why hasn't the board decided to consult the members about 
this important decision at the general meeting in november 
1987 before make their decision? (In that case there wouldn't 
be any problems with the distribution of software as there 
are now.) 

-On which grounds the decision to dismiss Willem van Pelt of 
his duties has been made? 

-Is this the result of feelings against the person of Willem 
van Pelt? 

-Has this conflict anything to do with the developing policy 
concerning the future of the KIM-Gebruikers club Nederland 
and different points of view of the people involved? 
-Has Willem van Pelt perhaps been dismissed as a result of 
written complaints by members? 
-We have the impression that the board is deliberately 
witholding information from the members of the club and is 
obstructing members to express their opinion in these matters 
outside the general meeting. Is this a correct impression? 

At the meeting in Haarlem on 19 September 1987 the members of 
the board promised to discuss this matter with the members at 
the coming general meeting on 14 november 1987. In view of the 
strange and, to members, obscure cource of events we demand 
the following: 

-the board to recall the decision to dismiss Willem van Pelt 

of his duties as chief editor of "De 6502 Kenner". 
-the board to come forward with their intentions and ideas how 

to improve communication between the members and the board, 
-the board to present full explanation about the nature of the 

conflict between Willem van Pelt and the board, in order to 

have an open discussion. 

As we think it is of enormous importance to discuss this 

matter with as much members as possible, we urge everybody to 

attent the general meeting on 14 november 1987 so that an 

extensively deliberated decision can be taken. 

If the board does not recall their decision to dismiss Willem 

van Pelt of his duties, on this general meeting an formal 

proposal will be introduced to recall it after all. 

If you are not able to visit the general meeting personally, 

please send your authorization to vote, along with your 

preference, to: 



Coen Boltjes 
Noordeinde 5 
3121 KG Schiedam 
The Netherlands 



Note : 

Deze brief van Coen Boltjes is op zijn verzoek, 
ongecensureerd en met instemming van het bestuur, 
gepubliceerd. 

Het bestuur wil echter benadrukken dat het zich 
volledig distantieert van geschreven inhoud, welke 
geheel ter verantwoording is van Coen Boltjes. 



Namens het bestuur, R. Vleesch Dubois. 
Fernando Lopez Portugal 
Andrew Gregory England 
Marc Lachaert Belgium 
Coen Boltjes The Netherlands 
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Van het bestuur. 



REDAKTI ON EEL 



Tijdens de laatste bestuursvergadering 
heeft het voltallige bestuur besloten om 
de Heer W. van Pelt uit zijn funktie van 
redacteur te ontheffen. Dit besluit is 
genomen om reden van bestuurlijke aard: 
de heer van Pelt meende meer en meer een 
eigen koers te moeten varen. Hij stelde 
menigmaal tijdens bestuursvergaderingen 
dat; M indien het bestuur vindt dat ik 
het niet goed doe, moeten zij het maar 
zeggen dan stap ik zo op". Uiteraard valt 
er met iemand die zich zo op stelt niet 
te werken. Diskussie was vooral het 
groeiend buitenlands taalgebruik. Zelfs 
vertalers werden door W. van Pelt aange- 
schreven om Nederlandse kopy te vertalen. 
Tevens meende de heer van Pelt de prijzen 
van enige club-produkten zelfstandig te 
moeten bepalen. Helaas heeft het bestuur 
deze moeilijke maar noodzakelijke beslis- 
sing moeten nemen. Alle dingen bestaan 
minstens uit twee, zo ook hier. De heer 
W. van Pelt heeft zeer veel werk ver- 
richt, dit heeft zeker bijgedragen tot 
een aantal positieve ontwikkelingen 

binnen onze club. Hiervoor wil het 
bestuur de heer W.L. van Pelt zijn erken- 
telijkheid betuigen. Het bestuur wil nog- 
maals duidelijk naar voren brengen, dat 
de redacteur door het bestuur wordt be- 
noemd, en de Kim Renner onder de verant- 
woordelijkheid valt van het dagelijks 
bestuur. 

Namens het bestuur. 

R. Vleesch Dubois, (voorzitter) 



PJL.OF I / / 

Zomaar een nieuw jasje voor de 6502 
Ke inner. Ja, ook de indeling van dit blad 
is aangepast . Was de oude 6502 Kenner dan 
niet goed? Zeker, maar ook redaktioneel 
moet men innoveren. De hedendaagse 
"Desktop-publishing" apparatuur maakt het 
mogelijk om betere kwaliteit te leveren 
en sneller te werken. Technitron Data 
B.V. te Aalsmeer stelde ons een TLP-12 
laser printer ter beschikking om de kopy 
voor dit blad te produceren. De indeling 
is overzichtelijk gemaakt , zodat een 
ieder de voor hem interessante informatie 
snel kan lokaliseren. Er zullen vaste 
rubrieken worden gepresenteerd , waarmee 
we zoveel als mogelijk de voor ieder 
interessante informatie willen 

publiceren. Graag zouden we dan ook zien 
dat op deze vaste rubrieken wordt 
gereageerd door het insturen van kopy, 
die (onder voorbehoud) in een van deze 
rubrieken geplaatst zullen worden. Tekst 
of software kunt u insturen op een 5 1/4 
inch floppy disk welke gelezen kunnen 
worden op de volgende disk operating 
sy st emeu: 
Dos - 65 
Ms - Dos 
Ohio - Octopus 
CP/M - (Apple) 
Junior tape 

Natuurlijk zijn ook andere informatie- 
dragers mogelijk, zoals getypte of 
afgedrukte kopy. Deze dienen dan wel 
overgetypt te worden door de redaktie 
medewerkers . Bespaar ons werk en stuur uw 
kopy op floppy. Voor iedere inzending op 
floppy kan de inzender rekenen op een 
nieuwe floppy en misschien zetten wij er 
dan iets leuks voor u op. 



De redaktie . 
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Uitnodiging voor de 

bijeenkomst op ZATERDAG 14 

Lokatie: 

Wijkcentrum ' t Veurbrook 
Jan Tooropstraat 27 
7606 JS ALMELO. 
Tel. : 05490 - 10353 



Routebeschrijving: 

Voor degenen die al eerder op een 
bijeenkomst in Almelo waren, is het een- 
voudig: u rijdt naar de u bekende lokatie 
aan de Jan Steenstraat. Daar aangekomen 
gaat u steeds rechtdoor, tot u niet ver- 
der kunt. Hier gaat u links af . Dit is de 
Jan Tooropstraat. Met de bocht mee naar 
rechts. Na pirn. 120 meter links: 
*t Ve'urbrook. 

Vanuit het westen en zuiden (Al / A35): 

1. Aan het einde van de snelweg rechtsaf. 
Bij het eerstvolgende kruispunt MET 
VERKEERSLICHTEN linksaf, richting 
Wierden/Zwolle. Bij de eerstvolgende 
verkeerslichten rechtdoor. Bij de 
volgende verkeerslichten (links BP tank- 
station en Opel garage Kamp) gaat u 
recht saf . 

2. U rijdt nu op de Windmolenbroeksweg . 
Doorrijden tot over de brug, dan de 
eerste straat rechts. Dit is de W. van 
Konijnenbrugstraat . Na plm. 50 meter 
rechtsaf. Dit is de Tooropstraat. Met de 
bocht mee naar links. Na plm. 50 meter 
aan de rechterkant: Vt Veurbrook. 

Vanuit het noorden (via de N 36). 
1. Bij de stoplichten rechtsaf, richting 
streekziekenhuis. U bevindt zich nu op de 
rondweg om Almelo. Deze weg blijven vol- 
gen tot u het BP tankstation ziet. Bij 
dit kruispunt linksaf. Zie verder punt 2. 

Met het openbaar vervoer. 

Vanaf NS station Almelo met de stadsbus 
naar de wijk Molenbroek. Uitstappen bij 
de halte Windmolenbroeksweg. Schuin 
de bushalte staat een 



Aanvang 10.00 uur . 

- opening ledenvergader ing 

- notulen laatste ledenvergader ing 

- concept begroting 1988 

- verkiezing kaskontrole kommissie 

- redaktie 6502 kenner 

- komende en gaande bestuursleden 
aftredend en niet herkiesbaar: 

John van Sprang - penr J 
aftredend en herkiesbaar: 
Adri Hankel 
Erwin Visschedijk 

- kandidaten voor genoemde funkties 
kunnen zich melden tijdens de 
vergadering of eerder d.m.v. briefje 
aan de voorzitter. 

- rondvraag 

- lunch 

- informeel gedeelte. 



Toegang gratis. 

Konsumpties en/of broodjes tegen bet 



aling . 



tegenover 
wegwij zer . 
vermeld. 



Daarop staat ook 't Veurbrook 
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DE 6502 KENNERS GAAN DE LUCHT IN 

be 6502 kenners gaan de lucht in, niet 
op de rumoerige manier die van Speijk 
daarvoor koos , maar op een vreedzame 
manier met een bulletin-board. Het 
bestuur heeft besloten een eigen 
bulletin-board voor onze vereniging op te 
richten. Op het moment dat u dit leest 
heeft de penningmees ter al het groene 
licht gegeven voor de aanschaf van de 
noodzakeli jke hardware. Het belangr i j kste 
deel van die hardware bestaat uit een 
IBM(achtige) PC met een 20 Mb Winchester 
en een auto-answer modem. Welke software 
we gaan gebruiken is op dit moment nog 
niet bekend. Het zou het meest voor de 
hand liggen om een FIDO bulletin board op 
te zetten. Nog mooier zou het zijuals ons 
bulletin-board een onderdeel zou kunnen 
gaan vormen van het landelijke FIDO net- 
werk. Helaas lijkt daar getuige een 
ingezonden brief van onze zuster- 
vereniging uit Roosendaal in de laatste 
HCC nieuwsbrief weinig kans op. De 
Roosendaalse club had van diverse 
hotemetoten uit het HCC bestuur al 
mondel-inge toezeggingen gekregen dat hun 
FIDO op het landelijke net kon worden 
aangesloten. Er hoefde alleen nog maar 
even een speciaal aanvraagf ormuliert j e te 
worden ingevuld, en dan zou het allemaal 
snel in orde worden gebracht . Na het op- 
sturen van het aanvraagf ormulier en acht 
maanden wachten was er nog steeds niets 
gebeurd. Derhalve werd in opperste wan- 
hoop kontakt opgenomen met de HCC direk- 
teur (ze schijnen er een heuse te hebben 
rondlopen) . Die sprak er zijn verbazing 
over uit dat er nog niets gebeurd was, en 
verwees naar ene Jan-Arie die dat even 
snel voor elkaar zou brengen, want zo 
moeilijk was dat toch allemaal niet 
nietwaar. Twee weken daarna ontving de 
Roosendaalse club een kil briefje waarin 
werd medegedeeld dat zuster-verenigingen 
niet worden toegelaten tot het FIDO net. 
Zelfs de redactie van de HCC Nieuwsbrief 
kon zich voorstellen dat het bestuur van 
de Roosendaalse computerclub behoorlijk 
over de rooie was van zo'n behandeling. 
Dat een zo grote vereniging als de HCC 
een prof essioneel management nodig heeft 
is niet meer dan begri j peli j k . Dat een 
dergelijk management er kennelijk naar 
streeft om de HCC een monopolie positie 
te geven is heel wat minder begrijpelijk . 



Ik kan me ook werkelijk niet voorstellen 
dat de HCC leden er behoefte aan hebben 
om medehobbyisten op zo'n manier te 
behandelen. Afijn genoeg gekankerd, 

misschien leren ze bij de HCC nog wel 
eens dat hobby-verenigingen meer gebaat 
zijn bij samenwerking dan bij tegenwer- 
king. Intussen zullen wij knus onder 
elkaar zijn op ons eigen bulletin-board. 
Wat heeft een dergelijk board u als 
hobbyist nu te bieden? In principe levert 
een bulletin-board twee soorten diensten. 
Allereerst is een bulletin-board een 
verzamelpunt voor lieden die elkaar iets 
willen vragen, die iets te vertellen 
hebben, of die willen kijken wat anderen 
te melden hebben. Iedereen die kontakt 
zoekt met een bulletin-board (inlogd) kan 
er berichten achterlaten of berichten 
die door andere mensen zijn achtergelaten 
lezen. Zulke berichten kunnen op allerlei 
onderwerpen betrekking hebben. Wie met 
een schijnbaar onoplosbaar probleem zit 
kan de hulp van medeleden inroepen, of je 
kunt als je denkt dat je iemand kunt 
helpen een bericht achterlaten waarin 
tips staan voor de oplossing van het 
probleem. Ook is het mogelijk om een al 
dan niet verhitte discussie aan te gaan 
over inter ess ante ( computer ) onderwerpen . 
Eveneens is het mogelijk om verjaardags- 
groeten of schuine moppen achter te 
laten, maar de praktijk wijst uit dat de 
lol daar al gauw van af gaat . Op de 
meeste goede bulletin-boards tref je dat 
soort zaken tegenwoordig niet meer aan. 
De tweede dienst die een bulletin-board 
biedt is die van een file-server. Dat wil 
zeggen dat het board als plaats dient 
waar files opgeslagen zijn. Op commando 
van u als ingelogde gebruiker stuurt het 
bulletin-board de file naar uw eigen 
computer toe, waar een bepaald programma 
er voor zorgt dat het op uw eigen floppy- 
disk wordt opgeslagen. Dit proces wordt 
down-loaden genoemd . Ook het omgekeerde 
(up-loaden) is mogelijk. U kunt een file 
van uw eigen computer overzenden naar het 
bulletin-board. Het board zorgt ervoor 
dat de file zodanig wordt opgeslagen dat 
anderen hem weer kunnen down-loaden. 
Uiteraard is dit allemaal reuze handig. 
Stelt u zich voor dat de listings van de 
programma 's uit de laatste 6502 Kenner 
altijd op het board aanwezig zijn. Dat 
bespaart u werkelijk uren type-werk! Al 
het data-transport tussen u en het 
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Pkenner bulletin bdard 



bulletin-board verloopt via het openbare 
telefoonnet en dat betekent dus dat u 
over een modem moet beschikken. Gelukkig 
is er op modem-gebied op het ogenblik een 
ware pr i j zenoorlog aan de gang. De 
'klonen' fabrikanten in Taiwan hebben een 
markt voor modems in Europa ontdekt en 
ervoor gezorgd dat de prijzen in een jaar 
tijds meer dan gehalveerd zijn. Betaalde 
je een jaar geleden nog tussen de 
f 1500,- en f 2000,- voor een 1200 baud 
full-duplex modem, op dit moment zijn 
'Hayes compatible' modems al voor prijzen 
van rond de f 500,- te koop . Het ligt het 
meest voor de hand om een modem de kopen 
dat zowel de V21 norm (300 baud 
full-duplex) als de V22 norm (1200 baud 
full-duplex) aan kan. Wilt u ook gebruik 
maken van data-banken die volgens het PTT 
'Viditel' principe werken, dan dient uw 
modem ook nog de V23 norm aan te kunnen 
(1200/75 baud). U moet echter wel beden- 
ken dat de door ons gewoonlijk gebruikte 
6551 ACIA zonder hardwarematige kunst- 
grepen niet in staat is met verschillende 
snelheden te zenden en te ontvangen. 
Goed, nadat u het nodige ijzerwerk heeft 
ingekocht en aangesloten op de RS232 
interface van uw computer, moet er nog de 
nodige software komen om met dat modem en 
het bulletin-board om te kunnen gaan. U 
moet tenminste over een terminal-emulat ie 
programma beschikken om met het 
bulletin-board kontakt te kunnen opnemen. 
Zo'n terminal-emulator is in feite een 
programma dat niet veel meer doet dan 
datgene wat u intypt via de RS232 inter- 
face naar het modem te sturen, en de 
characters die het modem via de RS232 
interface naar uw computer stuurt op het 
scherm te zetten. (Zie het artikel van 
Bram de Bruine in de 6502 Kenner nr 51). 
Wilt u het bulletin-board alleen maar 
gebruiken om berichten te lezen en achter 
te laten dan heeft u hieraan al genoeg. 
Wilt u echter files kunnen down- en 
uploaden dan moet u over een programma 
beschikken dat een of meerdere commu- 
nicatie 'protocols' begrijpt. Een 
dergelijk protocol (afspraak) beschrijft 
hoe een file wordt overgestuurd over de 
telef oonlijn. De bedoeling van een derge- 
lijk protocol is vooral om verminking van 
de file tijdens het overzenden te kunnen 
ontdekken en zonodig te corrigeren. Op 
bulletin-boards zijn drie protocols 
populair: ASCII, Xmodem en Kermit . Het 



laatste protocol is met toestemming van 
de scheppers naar de gelijknamige kikker 
uit de 'Muppet show' genoemd . Het ASCII 
protocol is het primitiefste van de drie. 
De file, die overigens alleen ASCII 
characters mag bevatten, wordt als een 
stroom opeenvolgende bytes over de lijn 
gezonden. De ontvangende computer moet er 
dan maar voor zorgen dat hij de ontvangen 
characters verwerkt. Het Xmodem protocol 
werkt al een stuk beter. Hier wordt om de 
zoveel bytes een checksum overgestuurd. 
De ontvangende computer vergelijkt de 
checksum met de door hem zelf berekende 
en geeft aan de zendende computer te 
kennen of alles ok was of niet. Was er 
iets niet in orde, dan worden de betref- 
fende bytes nog eens overgezonden . Het 
Xmodem protocol is redelijk betrouwbaar, 
maar niet echt bomvast. Met Xmodem kunnen 
in principe ook binaire files worden 
overgezonden, maar alleen als zowel de 
zender als de ontvanger characters van 8 
bits kunnen verwerken. Verreweg het beste 
protocol van dit moment is Kermit. Kermit 
is aan het begin van de jaren tachtig aan 
de Columbia University van New York ont- 
wikkeld. Men heeft daarbij sterk gekeken 
naar prof ess ionele protocols als DECnet 
en OSI (Open Systems Interconnect). 
Kermit is een 'layered' protocol. Elke 
computer die over een RS232 interface 
beschikt en alle printbare ASCII charac- 
ters ongehinderd verwerkt kan met Kermit 
werken. Bij Kermit wordt de te verzenden 
file in stukjes gehakt, de zogeheten 
packets. De bytes in deze packets worden 
met bepaalde algorithmes omgezet in 
printbare characters. Vervolgens worden 
er een checksum, een volgnummer een 
typeaanduiding en informatie over de 
lengte van het packet toegevoegd. Een 
packet bestaat derhalve uit verschillende 
lagen van informatie: aan de begin en 
einde een data link layer (checksum, 
lengte) om de integriteit van het packet 
te garanderen, een session layer (volg- 
nummer, type) om de continuiteit van de 
datastroom te garanderen en een appli- 
cation layer waarin de feitelijke 
informatie van het packet staat. Er 
bestaan zeer nauwkeurige afspraken over 
de wijze hoe de twee Kermits verbinding 
met elkaar maken aan het begin van de 
f ile- transfer . De bedoeling hiervan is 
dat de Kermits elkaar duidelijk maken wie 
ze zijn en wat ze kunnen. Er bestaan even 
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nauwkeurige afspraken over wat er gebeurt 
als er storing op de lijn is, of wanneer 
bijvoorbeeld een mainframe responstijd- 
problemen heeft enz . Dat alles is nood- 
zakelijk om een foutloze overdracht van 
de file in elke denkbare situatie moge- 
lijk te maken. Op dit moment zijn voor 
zover mij bekend is zowel voor de Octopus 
als DOS65 programma's verkrijgbaar die 
een terminal emuleren en het ASCII en 
Xmodem protocol ondersteunen . Een cotntnu- 
nicatieprogramma dat Kermit ondersteunt 
is er helaas nog niet. Dat heeft waar- 
schijnlijk te maken met het feit dat het 
schrijven van een goed werkende Kermit 
geen trivial^ klus is. Alleen al de 
manual die het Kermit protocol beschrijft 
is zo'n 85 pagina's dik! Toch bestaat er 
de kans dat er over enige tijd een wer- 
kende Kermit voor DOS-65 zal bestaan. 
Voor zover mij bekend zijn er nog geen 
mensen bezig met het aanpassen van Kermit 
voor de Octopus. Over de adressen waar 
bovengenoemde programma's verkrijgbaar 
zijn bestaat nu nogal wat onduidelijk- 
heid. Het ^al u na het lezen van het 
bestuurlijke artikel in dit blad niet 
ontgaan zijn dat er rond het functioneren 
van de redactie de nodige problemen zijn 
geweest. De redactie was bij traditie de 
plaats waar de verspreiding van software 
plaatsvond. Omdat we momenteel met een 
interim-redactie werken zijn er een 
aantal dingen die opnieuw georganiseerd 
moeten worden, waaronder dus dit. Voor 
het goed functioneren van een bulle- 
tin-board is nog iets anders nodig dan 
hardware en software: een Sysop. De Sysop 
is de persoon die de bulletin-board 
hardware en software onder zijn beheer 
heeft. Deze beklagenswaardige figuur 
wordt op de onmogeli j kste tijden opgebeld 
(Hoezo laat?? Ik werk altijd het liefste 
om half twee f s nachts...), krijgt de 
domste vragen te beantwoorden (Oh, moet 
je een modem dan niet met een nul-modem 
kabel aansluiten . . . ) en moet bovendien 
voortdurend voor politieagent spelen om 
ongedisciplineerde gebruikers in toom te 
houden (En als je nu nog eens een belgen- 
mop op het file-gebied zet dan ontneem ik 
je je privileges...). Maar nu even in 
ernst, voordat we van start kunnen gaan 
met ons bulletin-board moet er wel iemand 
gevonden worden die de nodige tijd en 
energie wil steken in het opzetten ervan. 
Er moet een vas:.. plrats komen voor de PC 



die bijna dag en nacht in bedrijf moet 
zijn, en er moet een tweede telefoonaan- 
sluiting komen. Vooral in het begin, 
wanneer alles nog niet op rolletjes loopt 
zal de Sysop er heel wat tijd in moeten 
steken. Uiteraard worden alle kosten door 
de club betaald. Elders in dit blad treft 
u een oproep van het bestuur aan voor 
een Sysop. Als u belangstelling heeft, 
neem dan kontakt op met het bestuur. In 
het volgende nummer van de 6502 kenner 
hopen wij u een telef oonnummer te kunnen 
aanbieden waarachter een goed werkend 
bulletin-board schuil gaat . 
Gert Klein 08370-23646 
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LAATSTK NIEUWS 

DOS65 versie 2 entries beschrij ving . 

Alle entries in 1065 staan reeds 
beschreven in de 1065 manual, maar de 
DOS65 entries ontbraken nog steeds. 
Vanaf 1 november is er ook een 
nederlandstalige DOS65 entries manual 
beschikbaar. Hierin staat precies 
beschreven waarvoor de diverse DOS65 
entries gebruikt kunnen worden. Het is 
dan mogelijk door gebruik te maken van 
bepaalde entries vanuit zelf geschreven 
machinetaal programma's files te openen 
en hieruit te lezen of erin te 
schrijven. Ook het lezen van enkele 
sectoren wordt dan mogelijk vanuit 
machinetaal.. Het een en ander is 
voorzien van voorbeelden. Hierbij wordt 
tevens een diskette geleverd waarop de 
file DVAR . MAC staat. In deze file staan 
al deze DOS65 entries en foutmelding 
definities. Deze file kan dan als 
library aan een zelf geschreven 
machinetaal programma gehangen worden. 
Het pakket is verkrijgbaar bij het 
officiele DOS65 distributie adres en 
kost F35,= exclusief F3,= 

verzendkosten. 
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; file 

; 

; system 

• 

; author 

; date 

0200 ' org 

C003 warm equ 

C006 comd equ 

C020 getcha equ 

C023 prcha equ 

C026 getecho equ 

C02F prcrlf equ 

C03B prtext equ 

0020 point equ 

0022 temp equ 

0024 bufeod equ 



0026 ysave 

0027 flag 
• 

0025 comdky 

0008 backsp 

003D sepkey 

002A wildca 

0023 delkey 

000D carret 

000D endkey 

0200 4C 7104 init 
0203 C8C5CCD0 

0207 20 3BC0 help 
020A 0D5461616C 



020F 
0214 
0219 
021E 
0223 
0228 
022D 
0232 
0237 
023C 
0241 
0246 
024A 
024F 
0254 
0259 
025E 
0263 
0268 
026D 
0272 
0277 
0279 
027E 
0283 
0288 
028A 
028F 
0294 
0299 
029E 
02A3 
02A8 



7374756469 

6520286C61 

6E67756167 

6520737475 

6479292020 

7665727369 

6F6E202E32 

2028666F72 

20646F7336 

35206C6576 

656C20322E 

3031 290A 

0D456E6162 

6C65732074 

6865207573 

657220746F 

2063726561 

7465206120 

736D616C6C 

2064696374 

696F6E6172 

790A 

0D53796E74 
617820203A 
205461616C 
7374 

0D4F707469 
6F6E73203A 
206E6F6E65 
0D6B657973 
202020203A 
203D097365 
6172636820 



equ 
equ 

equ 
equ 
equ 
equ 
equ 
equ 
equ 

imp 
fee 
jsr 
tec 



fee 



fee 
fee 



taalst.mac 
DOS65 

Ernst Elderenbosch 

16 aug '87 

$0200 

?c003 
?c006 
>c020 
>c023 
>c026 
Sc02f 
?c03b 



$0020 
$0022 

$0024 

$0026 
$0027 



'# 

$0d 

carret 



pointer into dictionary 
(bbeg <= temp <= bend) 
pointer into temporary 
buffer (bufsa <= point 
<= bufea) 

pointer to end of data in 
buffer 

temporary save y register 



command key 



make use of dos65 help facility 



start 

$c8 / $c5,$cc,$d0 
prtext ; normally fee $4c,$4c,$4c 

\rTaalstudie (language study) version .2 
(for dos65 level 2.01 )\n' 



'\rEnables the user to create a small dictionary\n' 



fee '\rSyntax : Taalst' 



: none 



'\rkeys • = search buffer for word' 



V 
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02AD 
02B2 
02B7 
02BC 
02C1 
02C6 
02CB 
02DO 
02D5 
02DA 
02DF 
02E4 
02E9 
02EB 
02F0 
02F5 
02FA 
02FF 
0304 
0309 
030E 
0313 
0315 
031A 
031F 
0324 
329 



0333 
0338 
033C 
0341 
0346 
034B 
0350 
0355 
035A 
035E 
0363 
0368 

0372 
0377 
037C 
0380 
0385 
038A 
038F 
0394 
0399 
039A 
039F 
03A4 
03A9 
03AE 
03B3 
03B8 
03BD 
03C0 
03C5 
03CA 
03CF 
03D4 
03D9 
03DE 
03E3 
03E8 
03ED 
03F0 
03F5 
03FA 
03FF 
0404 
0409 



6275666665 
7220666F72 
20776F7264 
0D09202009 
3F20696620 
6E6F206D61 
7463682066 
6F756E642C 
207468656E 
2074797065 
207472616E 
736C617469 
6F6E 

0D0920202A 
0973656172 
636820666F 
7220776F72 
6420656E64 
696E672077 
6974682077 
696C646361 
7264 

0D09202023 

0973656172 

6368206275 

6666657220 

666F722077 

6F72642061 

6E64206465 

6C657465 

0D09202063 

7209656E74 

657273206E 

657720776F 

726420696E 

746F206275 

66666572 

0D09202062 

730964656C 

657465206C 

6173742074 

7970656420 

6368617261 

63746572 

0D09202025 

09676F2069 

6E746F2063 

6F6D6D616E 

64206D6F64 

65 

0D0A636F6D 

6D616E6420 

6D6F64653A 

0D09202068 

097072696E 

742068656C 

7020736372 

65656E 

0D20202020 

2020202020 

2073097361 

7665206469 

6374696F6E 

6172792074 

6F20646973 

6B20617320 

6E616D652E 

646374 

0D0920206C 

096C6F6164 

2064696374 

696F6E6172 

792066726F 

6D20646973 



fee 



'\r 



? if no match found, then type translation' 



fee 



'\r 



* search for word ending with wi 



fee 



'V 



# search buffer for word and delete' 



fee 



fee 



cr enters new word into buffer' 



bs delete last typed character' 



fee 

fee 
fee 

fee 



% go into command mode' 



'\r\ncommand mode:' 

'\r h print help screen' 



s save dictionary to disk as name.dct' 



fee 



'\r 



1 load dictionary from disk (name.dct)' 
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040E 


6B20286E61 


0413 


6D652E6463 


0418 


7429 


041A 


0D09202063 


041F 


09636C6561 


0424 


7220646963 


0429 


74696F6E61 


042E 


7279 


0430 


0DO9202077 


0435 


2009776970 


043A 


6520736372 


043F 


65656E 


0442 


0DO92O2071 


0447 


2009717569 


044C 


742070726F 


0451 


6772616D 


0455 


0DO9202063 


045A 


72096C6561 


045F 


766520636F 


0464 


6D6D616E64 


0469 


206D6F6465 


046E 


ODOO 


0470 


60 




0471 


20 


1E08 


0474 


20 


2708 


0477 


20 


26C0 


047A 


C9 


25 


047C 


DO 


06 


047E 


20 


FD05 


0481 


4C 


7104 


0484 


C9 


08 


0486 


DO 


06 


0488 


20 


E105 


048B 


4C 


7704 


048E 


C9 


3D 


0490 


DO 


05 


0492 


85 


27 


0494 


4C 


B604 


0497 


C9 


23 


0499 


DO 


05 


049B 


85 


27 


049D 


4C 


B604 


04A0 


C9 


2A 


04A2 


DO 


05 


04A4 


85 


27 


04A6 


4C 


B604 


04A9 


C9 


OD 


04AB 


DO 


03 


04AD 


4C 


7104 


04B0 


20 


E505 


04B3 


4C 


7704 


04B6 


20 


E505 


04B9 


20 


3505 


04BC 


BO 


B3 


04BE 


A5 


27 


04C0 


C9 


3D 


04C2 


DO 


AD 


04C4 


20 


26C0 


04C7 


C9 


08 


04C9 


DO 


06 


04CB 


20 


E105 


04CE 


4C 


C404 


04D1 


C9 


OD 


04D3 


FO 


06 


04D5 20 


E505 


04D8 4C 


C404 


04DB 


20 


D805 


04DE 


20 


1E08 


04E1 


20 


ED05 



\r 



start 
loop 



fee 
fee 
fee 



fee 
fee 



jsr 
jsr 
3 sr 
cmp 
bne 
jsr 
jmp 
cmp 
bne 
jsr 
jmp 
cmp 
bne 
sta 
jmp 
cmp 
bne 
sta 
jmp 
cmp 
bne 
sta 
jmp 
cmp 




W 



'\r 



'\r cr 



'\r',0 

$60 



setbuf 
prompt 

?etecho 
comdky 

1. f 

command 

start 

#backsp 

2. f 

bsrout 

loop 

#sepkey 

3. f 
flag 
xlmode 
#delkey 

4. f 
flag 
xlmode 
twildca 

6. £ 
flag 
xlmode 
tcarret 

7. f 
start 
storch 
loop 
storch 
searmat 
start 
flag 
#sepkey 
start 

?etecho 
backsp 
(Li 

bsrout 

xlloop 

#endkey 

newentr 

storch 

xlloop 



clear dictionary' 



wipe screen 



quit program 



leave command mode' 



return from help when used 
as a subroutine 

set pointer to begin temporary buffer 

and print prompt » 
get character and echo 
command key? 

go into command mode 

and jump to start afterwards 
cursor left? 

then decrement pointer 

and get next character 
separator key? 



then get translation 
delete key? 

then delete word 
from dictionary 
wildcard character 



new entry in library 



newentr jsr 
jsr 
jsr 



chkeod 
setbuf 
set free 



then print list of words 

beginning with given characters 
if carriage return, start again 

and forget this word 

store into temporary buffer 

and get new character 
store the separator key too 
search for matching word 
word found, ready for next word 
only if separator key is typed 

translation is asked 
wildcard or delete flag set 
word not found, 
get translation from keybd 

and check if backspace typed 
then decrement pointer 
and get next character 
end of translation? 

then store word 
in dictionary 

else get next character 



set eod to end of text 
reset pointer 

search for free entry in library 
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04E4 


AO 


00 


04E6 


A9 


OD 


04E8 


91 


20 


04EA 


20 


D307 


04ED 


AO 


00 


04EF 


Bl 


22 


04F1 


91 


20 


04F3 


20 


E307 


04F6 


20 


D307 


04F9 


90 


10 


04FB 


38 




04FC 


A5 


24 


04FE 


C5 


22 


0500 


DO 


ED 


0502 


A5 


25 


0504 


C5 


23 


0506 


DO 


E7 


0508 


4C 


7104 


050B 


20 


3BC0 


050E 


0D6C696272 


0513 


6172792066 


0518 


756C6C2C20 


051D 


6C61 737420 


0522 


656E747279 


0527 


207472756E 


052C 


6361746564 


0531 


00 




0532 


4C 


7104 



8 



ldy 
Ida 
sta 
jsr 
ldy 
Ida 
sta 
jsr 

£>cc 
sec 
Ida 
crop 
bne 
Ida 
cmp 
bne 
jmp 
isr 
fee 



#0 

fcarret 
point] ,y 
mcpnt 

"0 

temp],y 
„pomt j,y 
mcbuf 
incpnt 
8.f 



bufeod 

temp 

l.b 

bufeod+1 
temp+1 
l.b 
start 
ortext 
\r library 



; store cr in library 

; increment pointer 

; and copy temporary buffer 

; to dictionary 

; increment 

; pointers 

; dictionary full ! ! 

; end of temporary buffer? 

; not yet/ so continue 



; not yet/ so continue 
; finished 

full, last entry truncated' ,0 



jmp 



start 



search for word match 



0535 


20 


D805 


0538 


20 


1508 


053B 


20 


1E08 


053E 


AO 


00 


0540 


Bl 


20 


0542 


F0 


42 


0544 


C9 


OD 


0546 


F0 


06 


0548 


20 


D307 


054B 


4C 


3E05 


054E 


20 


D307 


0551 


AO 


00 


0553 


Bl 


22 


0555 


C9 


3D 


0557 


F0 


12 


0559 


C9 


2A 


055B 


F0 


33 


055D 


C9 


23 


055F 


DO 


03 


0561 


4C 


AE05 


0564 


Dl 


20 


0566 


DO 


D6 


0568 


C8 




0569 


DO 


E8 


056B 


Bl 


20 


056D 


C9 


3D 


056F 


DO 


CD 


0571 


20 


D307 


0574 


Bl 


20 


0576 


C9 


OD 


0578 


FO 


OA 


057A 


84 


26 


057C 


20 


23C0 


057F 


A4 


26 


0581 


C8 




0582 


DO 


FO 


0584 


38 




0585 


60 




0586 


A5 


24 


0588 


85 


22 


058A 


A5 


25 


058C 


85 


23 


058E 


18 





searmat jsr 

nextwld isr 

1 ldy 
Ida 
beq 
cmp 
beq 
jsr 

2 isr 
ldy 

3 Ida 
cmp 
beq 
cmp 
beq 
cmp 
bne 

j m P 

7 cmp 
bne 
iny 
bne 

4 Ida 
cmp 
bne 
jsr 

5 Ida 
cmp 
beq 
sty 
jsr 



6 
8 



iny 
bne 
sec 
rts 
Ida 
sta 
Ida 
sta 
clc 



chkeod 
setbeq 
setbur 
#0 

[point], y 
8Tf 

#carret 

2. f 

incpnt 
l.b 

incpnt 

"0 

temp],y 
sepkey 

4. f 

#wildca 
prtwild 
fdelkey 

delete 
£point]/y 

3. b 

{"point], y 

# sepkey 

l.b 

incpnt 

[point] /y 

#carret 

6.f 

ysave 

prcha 

ysave 

5. b 



bufeod 
temp 
bufeod+1 
temp+1 



; what to do now? ==> operators choice 



set eod to separator 
start at beginning of dictior 
begin temporary buffer 

get char from dictionary 
end of dictionary 
next char will be 

beginning of next word 
else keep searching 

point to first character 

and take a look at 

word to be found 
end of word 
end of significant 

rrt of word 
delete key encountered 
then start deleting word 
from dictionary 
check character 

no match/ next word in library 
prepare to check 

next character 
check if word in dictionary 
is longer than wanted word 
if so/ words still don't match 
point to first character 
of translatic 
and start 



increment pointer 
and loop for more 
set carry to indicate match found 

set pointer to 
correct place 
in temporary buffer 

clc means no match found 



io 



DE 
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058F 60 



rts 



0590 
0593 
0595 
0597 
0599 
059B 
059D 
059F 
05A2 
05A4 
05A5 
05A8 



20 2FC0 
AO 00 
Bl 20 
FO 12 
C9 OD 
FO OB 
84 26 
20 23C0 
A4 26 
C8 

4C 9505 
4C 3B05 
4C 7104 



05AE A5 
05B0 85 
05B2 A5 
05B4 85 
05B6 AO 
05B8 Bl 
05BA C8 
05BB C9 
05BD FO 
05BF C9 
05C1 DO 
05C3 84 
05C5 20 
05C8 A4 
05CA Bl 
05CC AO 
05CE 91 



20 
22 
21 
23 
00 
20 

00 
04 
OD 
F5 
26 

0708 

26 

20 

00 

20 



05D0 20 D307 
05D3 Bl 20 
05D5 DO Fl 
05D7 60 



05D8 A5 22 
05DA 85 24 
05DC A5 23 
05DE 85 25 
05E0 60 



05E1 20 F307 
05E4 60 



05E5 AO 00 
05E7 91 22 
05E9 20 E307 
05EC 60 



05ED 20 1508 
05F0 AO 00 
05F2 Bl 20 
05F4 FO 06 
05F6 20 D307 
05F9 4C F005 
05FC 60 



; print list of words with matching start characters 
prtwild jsr 



2 

9 



Ida 
beq 
cmp 
beq 
sty 
isr 
ldy 
iny 
jmp 
mp 
mp 



prcrlf 
#0 

r point ],y 

tcarret 

2.f 

ysave 

prcha 

ysave 

l.b 

nextwld 
start 



delete 



Ida 
sta 
Ida 
sta 
ldy 
Ida 
my 
cmp 
beq 
cmp 
bne 
sty 
isr 
ldy 
Ida 
ldy 
sta 



point 
temp 
point+1 
temp+1 

[point], y 

#0 
2.f 

#carret 

l.b 

ysave 

dectmp 

ysave 

'jgoint],y 

. point], y 



; cmp #0 ; end reached? 

; beq 9.f ; shift rest down 
isr incpnt 
Ida [ point ],y 
bne 3.b 

9 rts 



save pointer 



chkeod 



Ida 

sa 

sta 
rts 



temp 
bufeod 
temp+1 
bufeod+1 



backspace routine 
bsrout jsr decbuf 



jsr decbui 
rts 



; store 
storch 




ldy 
sta 
jsr 
rts 



search end of data 
sr 



setfree 
1 



Ida 
beq 
jsr 
limp 
rts 



setbeg 
#0 

[point] f y 
9 • f 

incpnt 
l.b 



a word is found with 
matching starting characters 
so we are going to print 
word and translation 
and jump back to 
find more matching words 



go find next matching word 
unless we reached end of dictionary 



delete the currently found word 



we found the word 
that we want to delete 
(don't ask me why 
we want to delete it) 

search for next word 
because we have to 
shift the rest of the 
dictionary down to 
close the gap again 

found next word or end of dictionary 

anyway we have to copy this character too 
get offset 
get character 
and copy it 
over deleted word 



; point to next character 
; finished 



we would like to 
save a pointer to the 
end of text for 
later use 



is this all? 
yes indeed 



store character 
in temporary buffer 
and update pointer 



; now we want 
; to know where 
; the data in the 
; dictionary ends 
; momentarily 

; so now we really know 
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; command routine 



05FD 


20 


3BC0 


0600 


203C636F6D 


0605 


6D616E643E 


060A 


2000 


060C 


20 


26C0 


060F 


C9 


OD 


0611 


FO 


3D 


0613 


C9 


68 


0615 


DO 


03 


0617 


4C 


0702 


061A 


C9 


73 


061C 


DO 


03 


061E 


4C 


5106 


0621 


C9 


6C 


0623 


DO 


03 


0625 


4C 


FD06 


0628 


C9 


63 


06 2A 


DO 


03 


062C 


4C 


6907 


062F 


C9 


77 


0631 


DO 


03 


0633 


4C 


C807 


0636 


C9 


71 


0633 


DO 


C3 


063A 


68 




063B 


68 




063C 


20 


3BC0 


063F 


0D62796520 


0644 


627965202E 


0649 


2E2E0D00 


064D 


4C 


03C0 


0650 


60 





command isr 
fee 



jsr 
cmp 
beq 
cmp 
bne 
jmp 

1 cmp 
bne 

2 cmp 
bne 

j m P 

3 cmp 
bne 
jmp 

4 cmp 
bne 
jmp 

5 cmp 
bne 
pla 
pla 
isr 
fee 



jmp 
rts 

save routine 



0651 


20 


1E08 


0654 


20 


3BC0 


0657 


6176652074 


065C 


6F2066696C 


0661 


65203F2000 


0666 


AO 


00 


0668 


B9 


B506 


066B 


FO 


06 


066D 


91 


22 


066F 


C8 




0670 


4C 


6806 


0673 


84 


26 


0675 


20 


26C0 


0678 


A4 


26 


067A 


91 


22 


067C 


C8 




067D 


C9 


OD 


067F 


DO 


F2 


0681 


88 




0682 


98 




0683 


18 




0684 


65 


22 


0686 


85 


22 


0688 


A5 


23 


068A 


69 


00 


068C 


85 


23 


068E 


20 


CC06 


0691 


AO 


00 


0693 


B9 


BD06 


0696 


91 


22 


0698 


FO 


04 


069A 


C8 




069B 


4C 


9306 


069E 


20 


3BC0 


06A1 


0D73617669 


06A6 


6E67202E2E 


06AB 


2E00 



savebuf 



isr 
fee 



ldy 
Ida 
beq 
sta 
iny 
jmp 
sty 
isr 
ldy 
sta 
iny 
cmp 
bne 
dey 
tya 
clc 
adc 
sta 
Ida 
adc 
sta 
isr 
ldy 
Ida 
sta 
beq 
iny 
jmp 
isr 
tec 



prtext ; let user know that he's in 

< command > ,0 ; command mode 



Setecho 
carret 

#'h 

1. f 

help 
# s 

2. f 

savebuf 

#'1 

l.f 

loadbuf 

#'c 

4.f 

clearbuf 

i? 

els 

# ' q „ 

command 



prtext 
\rbye bye 



and ask him what he wants 
nothing at all? 

ok/ then return 
command h - help screen 



; command s - save dictionary 

; command 1 - load dictionary 

; command c - clear dictionary 

; command w - wipe screen (dos command 'el') 

; command q - quit program 

; this command was not in the list 

; balance the stack 



Ar',0 



; warm start dos65 
; leave command mode 



setbuf 
prtext 
ave to file ? 



#0 

comsave / y 
2.£ 

[temp],y 

1. b 

ysave 
getecho 
ysave 
I temp], y 

#carret 

2. b 



temp 
temp 
temp+1 
#0 

temp+1 
geteof 
#0 

comsave2/y 
]jternp],y 



r0 



copy command to 
set up text 
'save u: 



temp buffer 



; then get filename 



3.b 
rtext 
rsaving 



,',0 



remove the carriage return 
because we want 
to add the file extension 
and addresses later 
set pointer to 
old pointer + y register 
because that's where 
the carriage return was 
get end address library 

start copying 
'.dct 1000 * to the 
command line 
and include the 
end address too 
notify the user 



12 



BE 



IPKENNFR DDS65 CORNER 



5-Sep-87 13:59 taalst.lst Page 7 



06AD AO 30 
06AF A9 08 
06B1 20 06C0 
06B4 60 



ldy 
Ida 

rts 



06B5 7361766520 comsave fee 
06BA 753A00 

06BD 2E64637420 comsave2 fee 

06C2 313030302C 

06C7 3866666600 comsave3 fee 



#bufsa&255 

#bufsa>>8 

comd 



'save u: ' ,0 
'.dct 1000,' 
'8fff',0 



06CC 20 
06CF A5 
06D1 A2 
06D3 48 
06D4 6A 
06D5 6A 
06D6 6A 
06D7 6A 
06D8 20 
06DB 9D 
06DE 68 
06DF 20 
06E2 9D 
06E5 EO 
06E7 FO 
06E9 A5 
06EB A2 
06ED 4C 
06F0 60 



ED05 

21 

00 



F106 
C706 

F106 

C806 

02 

07 

20 

02 

D306 



; get end address in ascii 
geteof 



isr 
Ida 
ldx 
pha 
rora 
rora 
rora 
rora 
jsr 
sta 
pla 
jsr 
sta 
cpx 
beq 
Ida 
ldx 
jmp 
rts 



setfree 

foint+1 
0 



hexasc 
comsave3 , x 




; convert nibble to ascii 



36F1 29 OF 
06F3 18 
06F4 69 30 
06F6 C9 3A 
06F8 90 02 
06FA 69 06 
06FC 60 



hexasc and 
clc 
adc 
cmp 
bec 
adc 

9 rts 
• 

■ load routine 



06FD 

0700 

0703 

0708 

070D 

070F 

0711 

0714 

0716 

0718 

0719 

07 1C 

071E 

0721 

0723 

0725 

0726 

0728 

072A 

072B 

072C 

072D 

072F 

0731 

0733 

0735 

0737 

0739 

073C 



20 1E08 
20 3BC0 
6F61642066 
696C65203F 
2000 
AO 00 
B9 5C07 
FO 06 
91 22 
C8 

4C 1107 

84 26 
20 26C0 
A4 26 
91 22 
C8 

C9 OD 
DO F2 
88 
98 
18 

65 22 

85 22 
A5 23 
69 00 
85 23 
AO 00 
B9 6407 
91 22 



loadbuf 



#$0f 

#$30 
#$3a 
9.f 
#6 



setbuf 
prtext 
oad file ? 

comload/V 
2.f 

[temp],y 

1. b 
ysave 
getecho 
ysave 
Ltemp],y 

#carret 

2. b 



temp 
temp 
temp+1 



and start the action 
with a command to the 
dos65 command interpreter 
that's all folks 



; reserved for real end address 



; first see where 

; the dictionary ends 

; and then convert the 

; hex address to text 

; and insert it 

; as four ascii characters 

; in comsave3 

; use the x register 

; as a flag 

; so we can use 

; the same routine twice 

; once with x=0 

; and once with x=2 

; check if finished second round 

• then stop it 

; else do some homework 

; and go at it again 

; , with x=2 this time 



convert a nibble 
to an ascii character 
in the oldfashioned way 

wasn't that Aznavour 
i just heard? 

carry is set, makes +7 



; prepare for loading 
: ask for filename 

' ,0 



but let user think 
about it for some 
microseconds while 
i prepare the first part 
of the command line 
text: 'load u: 
ok user, do your thing 
you don't even have 
to type the file extension 
because i will do that 
after you give me a 
carriage return 

remove the carriage return 
because i want to 
add the file extension now 
unlike the save command 
we don't need addresses 
so the rest is child s play 



sta 



emp+1 
#0 

comload2,y 
[temp],y 
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073E 
0740 
0741 
0744 
0747 
074C 
0751 
0754 
0756 
0758 
075B 

075C 
0761 
0764 



0769 
076C 
0771 
0776 
077B 
0780 
0785 
078A 
078F 
0793 
0796 
0798 
079A 
079D 
07A2 
07A7 
07AC 
07B1 
07B6 
07BA 
07BD 
07BF 
07C0 
07C2 
07C5 
07C7 



F0 04 
C8 

4C 3907 
20 3BC0 
0D6C6F6164 
696E67202E 
2E2E00 
AO 30 
A9 08 
20 06C0 
60 

6C6F616420 

753A00 

2E64637400 



beq 
iny 
jmp 
isr 
tec 



ldy 
Ida 
jsr 
rts 



comload fee 



4.f 

3.b 
prtext 
\rlcading 



#bufsa&255 

#bufsa>>8 

comd 



'load u:',0 



>6 



notify the user 



that we are going 
to use the 
command interpreter 
again 



clear textbuffer 



20 3BC0 

6C65617220 

6469637469 

6F6E617279 

202D206172 

6520796F75 

2073757265 

205B792F6E 

5D3F200O 

20 26C0 

C9 79 

DO 2D 

20 3BC0 

0D636C6561 

72696E6720 

6469637469 

6F6E617279 

206E6F7720 

2E2E2E00 

20 1508 

AO 00 

98 

91 20 
20 D307 
BO F6 
60 



clearbuf jsr 
fee 



Dsr 
cmp 
bne 
jsr 
fee 



idy 
tya 
sta 

DCS 

rts 



prtext ; human error? 

lear dictionary - are you sure Cy/n]? 



getecho 

f'y 

9.f 

prtext 



\rclearing dictionary now 



no human error? 
else no hard feelings 
haha, too late now 



setbeg 
#0 

[point], y 

incpnt 

l.b 



all your work gone 

in a few seconds 
fill with binary null 



wipe screen 



07C8 AO DO 
07CA A9 07 
07CC 20 06C0 
07CF 60 

07D0 636C00 



07D3 
07D5 
07D7 
07D9 
07DA 
07DC 
07DE 
07E0 
07E2 

07E3 
07E5 
07E7 
07E9 
07EA 
07EC 
07EE 
07F0 



E6 20 
DO 02 
E6 21 
38 

A9 FF 
E5 20 
A9 8F 
E5 21 

60 

E6 22 
DO 02 
E6 23 
38 

A9 94 
E5 22 
A9 08 
E5 23 



els 



ldy 
Ida 

rts 



wipebuf fee 



#wipebuf&255 
Iwipebuf >>8 
coma 



'cl',0 



get command 'cl' 
and surrender to the 
command processor 



several pointer handling routines 



incpnt 



inc 
bne 
inc 

1 sec 
Ida 
sbc 
Ida 
sbc 
rts 

incbuf inc 
bne 
inc 

1 sec 
Ida 
sbc 
Ida 
sbc 



point 
lTf 

point+1 

#bend&255 
point 
#bend>>8 
point+1 



temp 
l.f 

temp+1 

#bufea&255 
temp 

#bufea>>8 
temp+1 



increment pointer 
to the dictionary 

and check if we are 
still between boundaries 

if we are not 
we clear the carry 



increment pointer 
to the temporay buffer 

and check if at end of buffer 
if so/ return with 

carry clear 
else return with 

carry set 
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07F2 60 



07F3 
07F5 
07F7 
07F9 
07FA 
07FC 
07FE 
0800 
0802 
0804 
0806 



A5 22 
C9 30 
FO OD 
38 

A5 22 
E9 01 
85 22 
A5 23 
E9 00 
85 23 
60 



decbuf 



0807 38 

0808 A5 20 
080A E9 01 
080C 85 20 
080E A5 21 
0810 E9 00 
0812 85 21 
0814 60 



0815 A9 00 
0817 85 20 
0819 A9 
081B 85 
081D 60 



10 
21 



081E A9 30 
0820 85 22 
0822 A9 08 
0824 85 23 
0826 60 



0827 20 3BC0 
082A 0D3E3E2000 



setbeg 



setbuf 



rts 

Ida 
cmp 



Ida 
sbc 
sta 
Ida 
sbc 
sta 
rts 

sec 
Ida 
sbc 
sta 
Ida 
sbc 
sta 
rts 

Ida 
sta 
Ida 
sta 
rts 

Ida 
sta 
Ida 
sta 
rts 



temp 

#bufsa&255 
9.f 

temp 
#1 

temp 

temp+1 

#0 

temp+1 



^int 

point 
>int+l 



check if already at 

beginning of temporary buffer 
if so/ return 
else decrement pointer 



#bbeg&255 

?oint 
bbeg>>8 
point+1 



#bufsa&255 
temp 

#bufsa>>8 
temp+1 



decrement pointer 

to dictionary 
no need to check 

for boundaries 
only used in 

case boundary 
cannot be reached 



set pointer to 
begin of dictionary 



set pointer to 
begin of temporary buffer 



type prompt 



prompt 



082F 60 



sr 
cc 

; for instance : 

' \r ( ~ J / 0 
rts- 



prtext 
*\r>> ',0 



here you can design 
your personal prompt, 



; fee 



would print funny face as prompt 



; define 256 byte buffer (please leave size 256 bytes) 
; & 32 k dictionary (can be any size you want) 



backsp 
bufeod 
els 

command 

dectmp 

getcha 

mcbuf 

newentr 

prompt 

sepkey 

storcn 

xlloop 



0830 
0894 

1000 
8FFF 

0200 



0008 
0024 
07C8 
05FD 
0807 
C020 
07E3 
04DB 
0827 
003D 
05E5 
04C4 



bufsa 
bufea 

bbeg 
bend 



equ 
equ 

equ 
equ 

end 



★ 

*+100 

$1000 
$8fff 

init 

label table 



start of temporary buffer 
end of temporary buffer 

dictionary beqin 
dictionary 



bbeg 

bufsa 

comd 

comsave 

delete 

getecho 

mcpnt 

nextwld 

prtext 

setbeg 

x] 



1000 
0830 
C006 
06B5 
05AE 
C026 
07D3 
053B 
C03B 
0815 
0022 
04B6 



bend 

carret 

comdky 

comsave 2 

delkey 

geteof 

init 

point 

prtwild 

setbuf 

warm 



8FFF 
000D 
0025 
06BD 
0023 
06CC 
0200 
0020 
0590 
081E 
C003 



bsrout 

chkeod 

comload 

comsave3 

endkey 

help 

loadbuf 

prcha 

savebuf 

set free 

wildca 



05E1 
05D8 
075C 
06C7 
000D 
0207 
06FD 
C023 
0651 
05ED 
002A 



bufea 

clearbuf 

comload2 

decbuf 

flag 

hexasc 

loop 

prcrlf 

searmat 

start 

wipebuf 



0894 
0769 
0764 
07F3 
0027 
06F1 
0477 
C02F 
0535 
0471 
07D0 



Errors detected: 0 
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Subdirectories . 

Misschien ten overvloede, maar voor de 
mensen die nog niet zo thuis zijn op 
D0S65 gebied, het volgende voor wat 
betreft het selecteren van 

subdirectories. Het systeem kent drie 
logische namen voor bepaalde 

geselecteerde directories. 

s: - dit is de systeem directory 
u: - dit is de user directory 
w: - dit is de work directory 
Na het commando 'asn <return>' laat het 
systeem zien waaraan die logische namen 
zijn toegekend. Als er nog geen andere 
toekenningen zijn gedaan staan ze alle 
drie te wijzen naar de hoof ddirectory van 
drive 0. Gebruiken we echter drive 1 als 
user drive, dan typen we in: ' asn u=l: 
<return>' . Op dat moment zal DOS65 alle 
commando's die niet standaard in DOS 
zitten zoals CAT, COPY, FORMAT enz . van 
de systeem directory (0) halen en de 
files die opgehaald moeten worden bij bv. 
'ED program. mac' komen van de user: 
hoof ddirectory van drive 1. Typen we 
echter in: 'asn u=l:a/ <return>' dan is 
de subdirectory A van drive 1 de user 
directory geworden. Bij ophalen en 
wegschrijven van files wordt dan alleen 
directory A van drive 1 gebruikt. Zo 
kunnen we ook de work directory naar 
subdirectories laten wijzen. Typen we in 
'asn w=l:b/ <return>' dan is de work 
directory op drive 1 subdirectory B. We 
kunnen nu heel simpel iets copieren van 
subdirectory l:a/ naar subdirectory l:b/. 
Dat gaat dan door het volgende in te 
typen 'copy u : program. mac w: ' . We zien 
dat de schrijfwijze 'u: ' iets gemakke- 
lijker is dan 'l:a/'. Als we de user 
directory laten wijzen naar een subdirec- 
tory dan geven de commando's D1R, SDIR en 
CAT ook alleen maar de informatie over de 
user directory en niet over de gehele 
schijf. Alleen het commando 'DIR -/' 
geeft een directory list van de complete 
schijf waarop de user directory zit met 
alle subdirectories. Rest me nog 
duidelijk te maken waar de work directory 
voor gebruikt wordt. Bij bv. compileren 
of assembleren worden er files aangemaakt 
die men later niet meer nodig heeft. Deze 
kunnen dan op de work directory gezet 
worden en kan men later de complete work 
directory deleten. 



Elektuur keyboard. 

Er treden problemen op met DOS65 als 
het Elektuur keyboard zonder aanpassing 
op het systeem wordt aangesloten. Het 
probleem zit hem in het feit dat de 
keyboard decoder van het keyboard niet 
feilloos werkt. Bij sommige toetsen wordt 
namelijk het meest significant bit (7) 
hoog gemaakt. Omdat D0S65 wel graag alle 
codes van een toetsenbord wil kunnen 
lezen wordt dit bit er in de software 
niet uitgef ilterd . Alle DOS65 commando's 
echter zijn in gewoon ASCII en niet met 
dat bit hoog. De commando interpreter kan 
de commando's dus niet thuisbrengen en er 
volgen f outmeldingen. Aangezien 1065 
geschikt is gemaakt om karakters in 
invers video weer te geven en dit is 
gedaan door het meest significante bit 
van het af te beelden karakter hoog te 
maken worden de commando's bij het 
beschreven probleem geval in invers video 
op het beeld gezet. Hieraan is dus de 
fout te herkennen. Het is vrij simpel om 
het probleem op te lossen. Haal het meest 
significante bit van het toetsenbord los 
en verbindt de nu ook losgekomen VIA lijn 
met de ground. Het gevolg is dat het 
meest significante bit nu altijd laag is 
en de commando's goed geinterpreteerd 
worden. Een nadeel is, dat er nu geen 
toetswaarden meer met dat bit hoog naar 
de computer gestuurd kunnen worden. Deze 
zouden eventueel gebruikt kunnen worden 
in zelf geschreven programma's of als 
functietoetsen in de screen editor. 



Verbetering voor de statische RAMkaart. 

De statische RAMkaart die werd gepu- 
bliceerd in maart '83 blijkt een 
onvolkomenheidje te bevatten. Sommige 
SRAM-chips moeten namelijk voor ieder 
access een nieuwe Chip-Select aangeboden 
krijgen, omdat deze chip anders het adres 
op hun adreslijnen niet in-latchen. Als 
de adreslijnen A13-A15 niet veranderen, 
gebeurt dit op de genoemde kaart niet. 
Dit kan eenvoudig verholpen worden door 
de CS te ANDen met phi2 . Buig hiertoe pin 
2 van de 7ALS156 of 74LS155 naar buiten, 
en verbindt deze met pin 16 van de 
74LS240. De kaart werkt nu goed met alle 
SRAM chips. 
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***** DOS-65 V2.0 FILE TRANSFER ***** 

Door: H.A.J.Quast 

Dekemastate 15 
1275 CM Huizen N.H. 
tel. 02152-54905 

Dit programma verzorgt de dataoverdracht tussen de DOS-65 computer 
en eeh andere computer. De interface is op RS-232 basis. 

Als tweede computer maak ik gebruik van een P2000T van Philips. 
Op deze Computer zit o.a. een programma "Familiebestand" in rompack. 
Met dit programma is het mogelijk om b.v. bestanden aan te maken, ook 
kan deze gebruikt warden als een eenvoudige tekstverwerker . 

Het werken met het programma filetransfer gaat als volgt: 

Op de P2000T wordt b.v. een stuk tekst ingetyped. Aan het einde van 
de tekst wordt een e.o.f. karakter gezet^ (ik gebruik op de P2000T 
meestal het teken @) Vervolgens star ten we het programma FILETRANS" 
op de DOS-65 computer en geven na de juiste keuze gemaakt te hebben 
op de P2000T voor de Baudrate, het pr intkomando. De file wordt nu 
overgezonden naar de DOS-65 computer en verwerkt met de opgegeven 
options. Na afioop komt de DOS-65 terns in de c omnia ndomo&e en na 
enige tijd "" 10 sec ook de P2000T. 

Beschr i j vin.g van het filetrans fer progra mma. 

Command: FILETRANS L -HMBE +m. n] FILE 

Optiontabei 

-I Help 

-M Data naar geheugen of naar disk (default disk) 
-B Baudrate 1200/2400 b/s (default 24G0b/s) 

-E $03 als eoi karakter. (default f) 

+m m = Startadres voor laden in het geheugen (default $3000) 

n n = Stopadres voor laden in het geheugen (default S9FFF) 

FILE Fiienaam van de datafile 




I 

voor welke baudrate er gekozen raoet wurdea, 1200/2400 baiid^vooi 
andere snelheden kunnen deze waarden warden aangepast in de datatabei 
BAUD12/BAUD24) , 1 



Sadat gekozen is voor de baudrate kan er opgegeven worden welk e.o.f. 
karakter gebruikt raoet worden. Bij het printen via de pr interpoor t 
"'0T geen eof karakter $03. Om nu de DOS-65 computer te 
en dat de file overgezonden is maak ik gebruik van het 
tekst op de F2000T. Dit karakter is ook het default 



printen via de printerp 

geeit de F2000T 
kennen te geve 
kar/ M @*' in w de 

karakter voor het programma. Als er gekozen is voor het laden in het 
geheugen dan kan met ae parameter +m~'n warden opgegeven waar de data 
in het geheugen gezet moet worden (default start $3000 stop $9FFF) , 
Het geheugengebied dat opgegeven kan worden loopt van $0100 t/m 
S9FFF. Er wordt geen test gedaan of het stopadres hoeer lu dan het 
startadres. 

Als laatste kan opgegeven worden wat de f iienaam Is waar in de data 
weRgeschreven moet * worden. Vanneer de data verstuurd is gee it de 
DOS-65 computer op het scherm de melding "Data transfer 'ready®., 
vervolgens kan de data bewerkt worden met de editor. 

Het ontvangen kan voortijdig gestopt worden door het indrukken van de 
toets op de DOS-65 computer. 

De RS-232 ver binding tussen de twee computers bestaat uit: 



-•t +- 



Tx ; \ /- 

; \ / 

; x 
: / \ 

DOS-65 Rx : / \- 



DTR I 

I 

I 

aarde ! 



-4 



Tx 

Rx P2000T 

DTR 

aarde 
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OAO 
0A1 
OAS 
0A4 
OAb 
OAS 
0A9 



OOAO 



C03B 
C059 
C05F 
COOS 
C06B 
DOOC 
D0B7 
F00O 
F009 
FOOC 



E132 
B734 
E735 
B776 
E777 
E778 
E779 



0060 
0040 
0020 
0010 



0001 
0003 
0005 

3000 
9FFF 
0010 



************* BOS-65 V2.01 **************** 

* FILE TRANSFER 

* 

X X -X X- si. X- X a X- tfs X X- X X- X- X/ J/ J/ X X- J.- X- -X X- X X- -X X- X vX X< X- X X- X- X- X' X -X X- X' X X X X X X X X X X X- X 



H.A.J. Quast 
Bekemastate 15 
1275 CM Huizen N.H. 
tel. 02152-54905 



With this program you can send a file fromanother 
computer to your own computer via the RS-232 interface. 

Page zero address 



ORG 

OPTMASK RES 
POINTER RES 
TEMPX RES 
MEMSTAR RES 
MEMENB RES 
FiLBOUT RES 
EOFCHA RES 



S00A0 
1 

2 
I 
2 
2 
l 
1 



System subroutine's 



PR I Ml EQU $C03B 

REDROUT EQU SC059 

OUTCLO EQU SC05F 

SOFT1 EQU SC063 

SPARl EQU $C06B 

SWRITE1 EQU $DOOC 

ERMES1 EQU SB0B7 

OUTDEV EQU $F006 

INPDEV EQU $F009 

INPTDEV EQU SFOOC 

! RS-232 device 

ACICMD EQU 



EQU 
EQU 



ACCIL 
ACCMD 

VRBEGL EQU 

VRBEGH EQU 

VKENi.iL EQU 

VRENDH EQU 



$1132 
SE734 
$E735 
LEWo 
$E777 
SE77S 
SE779 



Mask' ior option-code 



HELP EQU 
BAUDR EQU 
MEMD1SK EQU 
EOFHEX EQU 

; Data 



'410000000 
%01000000 
%O0 100000 
7,00010000 



DISPLAY EQU 
RS232 EQU 
MEMORY EQU 

STARTAD EQU 
STOPAD EQU 
LOVLIM EQU 



$01 
$03 
$05 

$3000 
$9FFF 
$10 



Option mask 
Commandbuf f er pointer 
Save address X-reg. 
Startaddress in memory 
Endaddress in memory 
Outputf ilenumber 
EOF' character 



Print text on screen 

Redirect output 

Close outputredirectf ile 

Get option 

Get Dirameter 

Single write in file 

Error messages 

Output devices register 

input devices register 

In'it. I/O device" 



Command register 
AC1A control register 
ACIA command register 
Startaddress memory 

Endaddress memory 



Help 
Baudrate 
Memory or disk 
EOF char. $03 



Display output device 
RS-232' I/O Si vice 
Memory device 

Default startaddress memory 

Default stopaddress memory 

Low limit for startaddress high byte 
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00A0 


HIGLIM 


EQU 


SAO 


00B8 


BAUD12 


EQU 


$B8 


OOBA 


BAUD24 


EQU 


$BA 


0001 


CQMBYT1 


EQU 


SOI 


0000 


COMBYT2 


EQU 


SOO 


0040 


EOFA 


EQU 


•8 


0003 


EOFH 


EQU 


S03 


OOOA 


LFEED 

» 

i 


EQU 


SOA 



; Mainprogram 







0A00 


ORG 


SOAOO 








> 

; Initialisation 


0A00 


20 


68C0 


FILETRANS JSR 


SOPT1 


0A03 


48 




FCC 


'H» 


0A04 


42 




FCC 


' B* 


0A05 


4D 




FCC 


•M' 


0A06 


45 




FCC 


*E' 


0A07 


00 




FCB 


SO 


OAOS 


90 


03 


BCC 


1. f 


OAOA 


4C 




J MP 


ERROR 


OAOD 


So 


AO 


1 SIX 


OPTMASK 


A A a r? 




A A 

40 


LDX 


#$40 


0A11 


20 


6BC0 


JSR 


SPAR1 


UA14 


A4 




FCB 


#MEMSTAR 


0A15 


A6 




FCB 


#MEMEND 


0A16 


00 




FCB 


$00 


0A17 


90 


03 


BCC 


2. f 


0A19 


4C 


640B 


J MP 


ERROR 


0A1C 


84 


Al 


2 STY 


POINTER 


0A1E 


85 


A2 


STA 


POINTER+1 








• Test the help command 


0A20 


A5 


AO 


TSHELP LDA 


OPTMASK 


0A22 


29 


30 


AND 


#HELP 


0A24 


FO 


03 


BEQ 


HIT 


0A26 


4C 


6C0B 


J MP 


INFO 








; initialisation AC I A 


0A29 


A5 


AO 


isit LDA 


OPTMASK 


0A2B 


29 


40 


AND 


#BAUDR 


0A2D 


FO 


05 


BEQ 


1. f 


0A2F 


A9 


B8 


LDA 


#BAUD12 


0A31 


4C 


3G0A 


J MP 


INITACIA 



0A34 A9 BA 
0A36 3D 34E7 
0A39 A2 03 
0A3B 20 OCFO 
0A3E 90 23 
0A40 20 3BC0 
0A48 071B692049 
0A62 60 



0A63 A5 AO 
0A65 29 10 
0A67 FO 04 
0A69 A9 03 
0A6B DO 02 
0A6D A9 40 
0A6F 85 A9 



1 LDA 
INITACIA STA 
LDX 
JSR 
BCC 
JSR 
FCC 
RTS 



High limit for stopaddress high byte 

Data for controlbyte ACIA 

Data for controlbyte ACIA 

Data for conmiandbyte ACIA 

Data for comraandbyte ACIA 

End of file character 

End of file character 



Get option 
Help 

Baudrate 1200/2400 b/s 

Data to memory or disk 

Eof char, is $03 

Option table end 

Branch if option are correct 



Save the option 
Load parameters 

pareraeter table end 

Branch if parameter are correct 

Save filepo inter address 
Save the lilepointer address 



Load option masker 
Test help command 



Load optionmask 
Test baudrate 

Set 1200 baud/ s 



Set 2400 baud/s 



#BAUD24 
ACCTL 
#RS232 
iSITDEV 
TSEOF 
PR I NT 1 

'\a\Ei Inputdevice not ready 
Exit program 



Init. Input dev. 
Branch it device ready 



\En\r 1 , 0 



Test which eoi char is used. 



TSEOF LDA 
AND 
BEQ 
LDA 
BNE 

1 LDA 
STACHA STA 



OPTMASK 

#EOFHEX 

1. f 

#EOFH 

STACHA 

#EOFA 

EOFCHA 



Load optionmask 
Test $03 char. 

Load eof char. 
Branch all ways 
Load eof char. 
Save the char. 
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k71 A5 AO 
k73 29 20 
475 DO 56 



; Test memory or disk 
TSMEM 



LDA 
AND 
BNE 



Test filename 



OPTMASK 
#MEMDISK 
TOMEM 



A77 


A4 


Al 


TSFILE 


LDY 


POINTER 


A79 


A5 


A2 




LDA 


POINTER+1 


A7B 


A2 


El 




LDX 


#$E1 


A7D 


20 


59C0 




jgp 


REDROUT 


A80 


90 


03 




BCC 


1. f 


A82 


4C 


640B 




J MP 


ERROR 

i—0 x v x\ w xv 


A85 


86 


A8 


> 

1 


STX 


FILEOUT 


A87 


A9 


01 


LOOP 


LDA 


#C0MBYT1 


A89 


8D 


32E1 




ST A 


ACICMD 


A8C 


A2 


03 




LDX 


#RS232 


A ftp 


20 


09F0 




JSK 


INPDFV 

X X* 1 xJ i— V 


A91 


AO 


00 




LDY 


#COMBYT2 


k®3 


SC 


32E1 




STY 


ACICMD 


A96 


C5 


A9 




CMP 


EOFCHA 


A98 


FO 


OE 




BEQ 


EXIT 


A9A 


C9 


OA 




CMP 


#LFEED 


A9C 


FO 


E9 




BEQ 


LOOP 


A9E 


A6 


A8 




LDX 


FILEOUT 


A AO 


20 


OCDO 




JSK 


S WRIT El 


AA3 


90 


E2 




BCC 


LOOP 


A AS 


4C 


640B 




J MP 


ERROR 


AA8 


Ao 


A8 


EXIT 


LDX 


FILEOUT 


AAA 


20 


SFC0 




J SI 


OUTCLO 


AAD 


20 


3BC0 


EXIT1 


JSK 


PRINT! 


ABU 


1B6920446I 




FCC 


! \Ei Data 


ACC 


60 






RTS 










> 

; initial isati on 


oi memory 


ACD 


AS 


Ab 


TOMEM 


LDA 


MEMSTAR+1 


ACF 


DO 


OD 




BNE 


STRADR 



AD1 A9 00 
AD3 6D 76E7 
AD6 A9 30 
AD8 8D 77E7 
ADB 4C EAOA 



Load deiauit star taddress 

LDA #STARTAB&255 

STA VRBEGL 

LDA #STARTAD>>8 

STA VRBEGH 

J MP MEMSTOP 

Load startaddress 

Test startaddress >=S1000 



Load optionmask 
Test memory or disk 
Branch if memory 



Load the filepo inter address 
file mode 

Redirect inputfile 



Save input f i lenumber 
Enable RS232 device 
Set command register 
Load device number 
Get char. 

Disable RS232 device 
Set Command register 
Test eof char. 

Suppress linefeed 

Load outputfile number 
Single write in tile 

Branch if error 

Load outputfile number 
Close the outputfile 

ter ready. \En\r ' , 0 
Exit program 



Test pointer are zero 
Branch if not zero 



Startaddress lowbyte 
Startaddress highbyte 



A 1)1 C9 
AE0 30 
AL- 



IO 
56 



8D 77E7 
AE5 A5 A4 
AE7 8D 76E7 



AEA A5 A7 
A EC DO 0D 



AEE A9 FP 
AF0 8D 78E7 
AF3 A9 9F 
AF5 8D 79E7 



STRADR CMP 
BMI 
STA 
LDA 
STA 



#LOVLIM 

RANERR 

VRBEGH 

MEMSTAR 

VRBEGL 



Test >=$10 

Startaddress highbyte 
Startaddress lowbyte 



initialisation of memory stopaddress 



MEMSTOP LDA 
BNE 



MEMEND+1 
STOADR 



Load default end address 

LDA #STQFAD4255 
STA VRENDL 
LDA #STOPAD>>8 
STA VRENDH 



Test pointer are zero 
Branch if not zero 



Stopaddress lowbyte 
Lghbyte 
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Load endaddress 

test endaddress >=$A000 



OAFB C9 AO 
OAFD 10 39 
OAFF 8D 79E7 
0B02 A5 A6 
0B04 8D 78E7 



STOADR CMP 
BPL 
STA 

kit 



#HIGLIM 

RANERR 

WRENDH 



test for >= SAO 

Stopaddress highbyte 
Stopaddress lawbyte 



Initialisation of the memory device 



OB07 
0B09 
OBOC 
OBOE 
0B11 
0B13 
0B16 
0B18 
0B1B 
0B1D 
OB IF 
0B21 
0B23 
0B25 
0B28 



A2 05 
20 OCFO 
A9 01 
8D 35E7 
A9 01 
8D 32E1 
A2 03 
20 09F0 
C5 A9 
FO OC 
C9 OA 
FO EE 
A2 05 
20 06F0 
4C HOB 



0B2B AO 00 
0B2B 8C 32E1 
0B30 A2 01 
0B32 20 OCFO 
0B35 4C ADOA 

0B38 20 3BC0 
0B3B 071B692041 
0B63 60 

0B64 AO 00 
0B66 8C 32 El 
0B69 4C B7D0 



MEMMOVE LDX 
JSR 
LDA 
STA 

LOOPMEM LDA 
STA 
LDX 
JSR 
CMP 
BEO 
CMP 
BEO 
LDX 
JSR 
J MP 

EXITMEM LDY 
STY 
LDX 
JSR 



#MEMORY 

INITDEV 

#C0MBYT1 

ACCMD 

#C0MBYT1 

ACICMD 

#RS232 

INPDEV 

EOFCHA 

EXITMEM 

#LFEED 

LOOPMEM 

#MEMORY 

OUTDEV 

LOOPMEM 

#COMBYT2 
ACICMD 
#D I SPLAY 
INITDEV 
EXIT! 



I nit. output memory 
Load commandbyte AC I A 

Enable RS232 device 
Set command register 
Load device number 
Get char. 
Test eof char. 

Suppress linefeed 

Load outputdevice number 
Save data into memory 



Disable RS232 device 
Set Command register 
Load outputdevice number 
I nit. output device 



ERROR 



JSR 
FCC 
RTS 

LDY 
STY 
J MP 



PRINT! 

' \a\El Address range ..$1000 or >=$A000 \En\r' ,0 
Exit urogram 



#COMBYT2 

ACICMD 

ERMES1 



Disable KS232 device 
Set Command register 
Print error 



end main program 



0B6C 


20 3BC0 INFO 


JSR 


0B6F 


OCOD 


FCC 


0B71 


1B69204620 


FCC 


0B93 


5769746820 


FCC 


OBBB 


616E6F7468 


FCC 


0BE8 


7468652052 


FCC 


OBFE 43686F6963 


FCC 


0C21 


4D61782E20 


FCC 


0C43 


OD 


FCC 


0C44 


436F6D6D61 


FCC 


0C6A 


1B69204F70 


FCC 


0C7D 


2D48202020 


FCC 


0C89 


2D4D202020 


FCC 


0CB6 


2D42202020 


FCC 


0CE5 2D45202020 


FCC 


0D09 2B6D202020 


FCC 


0D44 


2 06 E2 02 020 


FCC 


0D7D 


46494C4520 


FCC 


0D9E 


0D00 


FCC 


ODAO 


60 


RTS 




0A00 


END 



PRINT! 

' \f\r* 
\Ei F I L 



Print help- info 

E -TRANSFER \Kn\r\r 1 
♦With this program you can send a file fromXr 1 
'another computer to your own computer via\r 1 
'the RS-232 interface. Xr 1 
'Choice for data to memory or disk. \r 1 
'Max. address range $1000 to $A000\r' 
' \r ' 

' Command: F ILETRANS E-HMBE +m,n] FlLE\r\r ' 
' \Ei Qptiontabel \En\r\r' 
'-H HeipXr' 

* -M Data to memory or disk (default disk)\r 1 
'-B Baudrate 1200/2400 b/s (default 2400b/s\r' 
' -E SOS as eof char, (default @)\r' 

'+ra m - Startaddress for load in memory (default $3000) \r 



n 

'FILE 
\r' , 0 



n = Endaddress for load in memory (default $9FFF)\r < 
Filename for the dataf ile\r* 



F ILETRANS 
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Trage printerspooler . 

Onlangs werd ik met een vreemd probleem 
geconf ronteerd. De Star gemini 10 printer 
van een van de DOS65 gebruikers werkte 
wel maar niet erg snel op DOS65 . Werd 
output device 2 aangezet dan deed de 
printer zijn werk zoals dat hoort op de 
normale snelheid. Werd echter de printer 
spooler geactiveerd (het PRINT commando) 
dan duurde het erg lang voordat er een 
regel tekst naar de printer verstuurd 
werd. Na het normaal printen van een 
regel duurde het een aantal seconden 
voordat de volgende regel kwam. Eerst 
werd er aan een hardware fout gedacht, 
maar aangezien de printer correct werkte 
met via output device 2 moesten we dat 
idee maar snel laten varen. 

Om de oorzaak te kunnen begrijpen 
moeten we even iets dieper in DOS65 
duiken. Bij 1 MHz systemen komt er iedere 
l/20e seconde een interrupt. Deze inter- 
rupt komt van een timer in een VIA. De 
DOS vangt deze interrupt eerst op om 
allerhande periodieke zaken af te 
handelen : 

- De head-load tijd. 

- De drive-on tijd. 

- Copieren van 1065 tijd naar DOS 
(slechts iedere seconde) 

- Printer spooler. 

Daarna wordt de interrupt verder in 1065 
afgehandeld om het uurwerk bij te houden. 

Iedere l/20e seconde komt dus even de 
printer spooler aan bod. De spooler 
krijgt dan de mogelijkheid om 25 karak- 
ters naar de printer te sturen. Voordat 
er een karakter verstuurd wordt, wordt 
eerst de status van de printer uitge- 
lezen. Als de status ready is oftewel er 
is een acknowledge van de printer op het 
laatst verzonden karakter geweest, dan 
wordt pas het nieuwe karakter verstuurd. 
Omdat dit allemaal in een interrupt 
routine gedaan wordt mag er niet eeuwig 
op de ready van de printer gewacht worden 
anders ligt het hele systeem stil. In de 
standaard DOS configuratie test de 
spooler 10 keer of de printer ready is. 
Is dat niet het geval, dan wordt de 
printer spooler verlaten en worden er 
tijdens die interrupt periode geen 
pogingen meer gedaan om karakters naar de 
printer te sturen. Treft men nu een 
printer die na het ontvangen van een 
karakter niet binnen die 10 testen een 



acknowledge terug stuurt, dan wordt er 
per l/20e seconde slechts 1 in plaats van 
25 karakters verstuurd. Het duurt dan dus 
4 seconden voordat er een regel van 80 
karakters naar de printer gestuurd is. 
Dit kan echter met een snelheid van 0.16 
seconden. Voor dat soort printers moet 
dus iets vaker (langer) op de ready 
getest worden. De variabele die in de DOS 
op 10 staat moet dan bijvoorbeeld op 20 
gezet worden. De minimum waarde kan expe- 
rimenteel vastgesteld worden. Aangezien 
er in de DOS een load Y immediate staat 
moet die plaats eerst opgezocht worden 
voordat er geexperimenteerd kan worden. 
Dit opzoeken is noodzakelijk omdat men 
verschillende DOS versies geinstalleerd 
kan hebben met het config programma zodat 
het te wijzigen adres niet bij iedereen 
op dezelfde plaats staat. Om het adres op 
te zoeken gaat men naar de monitor met 
het commando MON. Dan wordt er gezocht 
naar de volgende byte volgorde: AO, OA, 88. 
Dat wordt gedaan met: 

w cc00,cfff ,/a0,0a,88/ <return> 
De monitor komt dan terug met een adres 
waar de LDY staat. Een adres verder staat 
de OA (decimaal 10). Dat adres is 
bijvoorbeeld $CD9A. Hier kan dan $14 
(decimaal 20) in gezet worden met: 

@ CD9B <return> 

14 <return> 

Q <return> 

Men is nu terug in de DOS en er kan een 
print commando gegeven worden. 

Waarschijnlijk is het probleem dan al 
opgelost. Is dat nog niet het geval dan 
kan de waarde verder verhoogd worden. Ga 
echter niet te hoog daar anders de inter- 
rupt routine veel te lang zou kunnen gaan 
duren. Is een goede waarde gevonden, bv . 
$14 dan moet dit permanent in de DOS 
gezet worden. 0m echter de standaard DOS 
niet aan te tasten wordt de 'patch' in de 
file login.com gezet. Deze file wordt 
namelijk altijd bij opstarten een keer 
doorlopen. Met de editor kan de volgende 
regel worden opgenomen in de file: 

memfill cd9b,cd9b,14 
Bij opstarten wordt dan op adres $cd9b de 
waarde $14 gezet. 

Met deze oplossing was het probleem van 
de trage printer uit de wereld geholpen. 
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Software 

Uiteraard staat de software 
ontwikkeling op het DOS65 front ook 
niet stil. Op dit moment worden er bij 
een aantal fanatieke DOS65 gebruikers 
modem programma 's ontwikkeld. Dit is 
een zeer goede zaak zeker als we het 
artikel hebben gelezen over modems en 
bulletin boards in deze 6502 Kenner. 
Wat mij echter even van het hart moet 
is het volgende. Het valt mij op dat er 
binnen onze club meer DOS65 programma- 
tuur ten tonele verschijnt dan ons 
bekend is. Daar is uiteraard niets op 
aan te merken. Alleen had die 
programmatuur er veel DOS65- 

vriendelijker uit kunnen zien. Ik denk 
bijvoorbeeld aan de 'help-tool' die bij 
ieder 'officieel' DOS65 programma 
(commando) zit ingebakken. Verder mis 
ik bij een heleboel van dat soort 
programma 's het handige gebruik van de 
DOS65 entries. Verder blijkt dat lang 
niet al die programma 's even 
betrouwbaar werken. Deze niet door de 
officiele DOS65 manier uitgegeven 
software (via de DOS65 coordinator) 
wordt niet door ons gesupport. Dat wil 
zeggen dat problemen die door die 
software ontstaan niet door ons 
onderzocht (hoeven te) worden. Als nu 
iemand een stuk software heeft 
geschreven en denkt dat dit goed 
bruikbaar is voor alle DOS65 gebruikers 
laat hij dat dan aan de DOS65 
coordinator weten. Deze man bekijkt het 
stuk software op compat ibiliteit met de 
rest van de DOS65 commando's en test 
het programma op fouten. Ook wordt op 
die manier de distributie en de 
bekendheid verzekerd. Ook als men van 
plan is iets 'groots' te gaan maken is 
het vaak raadzaam de DOS65 coordinator 
hiervan op de hoogte te stellen zodat 
niet twee keer het wiel hoeft te worden 
uitgevonden, mensen met elkaar in 
contact gebracht kunnen worden en van 
coordinators zijde eventueel ideeen 
meegenomen kunnen worden om bv. 
efficienter met de DOS te kunnen 
omspringen. 

Aansluitend op de vorige alinea 
kan ik mededelen dat er ook al driftig 
aan DOS versie 3 gewerkt wordt. Deze 
versie brengt bepaalde restricties met 
zich mee voor wat betreft het 



ontwikkelen van de programmatuur. DOS 
versie 3 werkt namelijk met een multi- 
tasking omgeving, hetgeen inhoud dat er 
8 taken (processen) tegelijkertij d 
kunnen lopen in het systeem. Het is dan 
mogelijk een file te compileren en te 
assembleren terwijl u zelf een andere 
file aan het editen bent. Als dan een 
task opgestart wordt moet aan de 
sceduler meegedeeld worden van welke 
stukken geheugen die taak gebruik 
maakt . Een andere taak moet daar dan 
vanaf blijven. Hier moet rekening mee 
gehouden worden als ook maar het 
kleinste programmaat j e geschreven 
wordt. Toch klinkt het allemaal erger 
dan het eigenlijk is, maar over de 
werking en het gebruik van DOS versie 3 
wordt nog voldoende gepubliceerd . Voor 
DOS versie 3 het wel noodzakelijk dat 
een virtual disk kaart in het systeem 
aanwezig is. 



Manuals 

C compiler documentatie . 

Vanaf 1 november is er een 
nederlandstalige manual over de DOS65 
C-compiler beschikbaar. Hierin staat 
niet wat de taal C is en hoe deze 
gebruikt moet worden maar een manual 
voor de specifieke eigenschappen van de 
DOS65 C-compiler. De in deze C-compiler 
geimplementeerde functies staan hierin 
beschreven evenals de beperkingen en 
verschillen met andere compilers. 
Tevens worden enkele functies van 
voorbeelden voorzien. Dit is een zeer 
handige (zo niet onmisbare) manual voor 
mensen die iets met de DOS65 C-compiler 
willen gaan doen. Ook uitgebreide 
voorbeelden en werkende programma 's 
staan in deze manual. De 

programmeertaal C wordt wel eens een 
processor onaf hankelijke machine taal 
genoemd . De manual is voor F35,= 
exclusief F3,= verzendkosten 

verkrijgbaar bij het officiele DOS65 
distributie-adres . Bij dit pakket hoort 
een diskette met daarop de C-compiler 
met al zijn libraries, een speciale 
uitvoering van de bekende AS assembler 
(voor snellere verwerking van library 
files) en diverse C-programma ' s die 
gebruikt en aangepast kunnen worden. 
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Hardware 

Eprommer. 

Er zijn momenteel al twee feilloos 
werkende DOS65 eprommers. Het eprom 
programmeer pakket bestaande uit een 
eurokaart, een kleiner printje voor de 
socket en een stuk software wordt 
binnenkort aangeboden. Op dit moment 
worden de printen ontworpen. De 
software bestaande uit twee delen is al 
klaar. Het eerste stuk software is het 
testprogramma. Hiermee kan de complete 
hardware getest worden. Het is mogelijk 
alle pinnen van de eprom voet 
afzonderlijk aan te sturen en te meten. 
Het tweede stuk software is de 
operationele software van waaruit de 
eproms geprogrammeerd kunnen worden. Er 
zijn drie programmeer algorithmes 
aanwezig. Het 50 milliseconden , het 
Inteligent en het Quick pulse 
algorithme. Verder zijn diverse 
programmeerspanningen (25, 21 en 12.5 
V) te kiezen evenals een 6 V 
voedingsspanning voor de Quick pulse en 
inteligent algorithmes. Als een 
epromtype wordt geselec teerd , wordt 
automatisch het algorithme, de 
programmeerspanning en de 

voedingsspanning ingesteld. De volgende 
types eproms zijn te programmeren: 





2716 


25 


V 




50 ms . 




2732 


25 


V 




50 ms . 




2732A 


21 


V 




50 ms . 




2764 


21 


V 




50 ms . 




2764 


21 


V 




Inteligent . 




2764A 


12 


.5 


V 


Inteligent . 




2764A 


12 


.5 


V 


Quick pulse. 




27128 


21 


V 




50 ms . 




27128 


21 


V 




Inteligent . 




27128A 


12 


.5 


V 


Inteligent . 




27128A 


12 


.5 


V 


Quick pulse. 




27256 


21 


V 




Inteligent . 




27256A 


12 


.5 


V 


Inteligent . 




27256A 


12 


.5 


V 


Quick pulse. 




27512 


12 


.5 


V 


Inteligent . 




27512 


12 


.5 


V 


Quick pulse. 




2532 


25 


V 




50 ms . 




2532A 


21 


V 




50 ms . 




2564 


25 


V 




50 ms . 




2564A 


21 


V 




50 ms . 


N.B. Hierboven 


is intelige 



opzettelijk met een *V geschreven 
omdat het gebruikte algorithme een 
handelsmerk is van INTEL. 



Zodra de printen van deze eprommer 
leverbaar zijn zal dit zo snel mogelijk 
bekend worden gemaakt in de 6502 
Kenner. Naast de printen en de software 
wordt er uiteraard een manual 
bijgeleverd. Deze manual is ook in het 
engels beschikbaar . 



1 Mbyte dram kaart . 

De 1 Megabyte dynamische ram kaart 
die het mogelijk maakt een virtual disk 
te installeren op het DOS65 systeem is 
voor wat betreft de hardware 
ontwikkeling klaar. Het grote probleem 
is echter het ontwikkelen van een 
betrouwbare print voor dit ontwerp. Het 
ontwerp bestaat nu uit 50 IC ' s en die 
zijn zeer moeilijk op een print met 
kruisingsvrije bedrading te 

rangschikken. Hieraan wordt echter hard 
gewerkt maar een leverdatum is nog niet 
te voorspellen. De software voor het 
DOS65 systeem hoeft niet aangepast te 
worden als niet meer dan 512 KByte op 
de print gemonteerd wordt. Voor een 1 
MB uitvoering moet er een nieuwe DOS 
(file BOOT) op de systeemschij f gezet 
worden. De mogeli j kheden van een 
virtual disk zijn te veel en te groot 
om zo een twee drie te beschrijven. 
Momenteel gebruik ik mijn virtual disk 
( 1 MB op een proef-print) als systeem 
disk. Bij het opstarten wordt dan de 
complete systeem disk van schijf naar 
virtual disk gecopieerd. Het voordeel 
is naderhand dat alle commando's die 
normaal van schijf moeten worden 
gelezen direct beschikbaar zijn. Verder 
zijn er twee drives leeg zodat het 
copieren van schijven zeer gemakkelijk 
gaat. Tevens gebruik ik een 
subdirectory van de virtual disk als 
gebruikers directory waardoor het 
compileren en assembleren van grote 
files veel sneller gaat. De 1 MB dram 
kaart is zo ontworpen dat de kaart ook 
op 2 MHz kan werken. U zult merken dat 
dan het hele systeem flitsend snel 
werkt. Daar kan geen IBM PC (clone) 
tegenop ! ! 
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EPRDM-DISC SOFTWARE 

Hit 
0915 



0825 
0038 

0835 

mi 



0065 
0078 
0075 
0088 
0085 
0098 
0095 
0108 
0105 
0110 
0115 
0128 
0125 
0138 
0135 
0148 
0145 
0158 
0155 
0168 

eiG5 

3178 
0175 
0188 
S185 
3138 
0195 
0238 
3205 
3218 
0215 
0228 
3225 
3238 
3235 
3248 
3245 
3250 
3255 
0268 
8265 
3278 
0275 
3288 
3235 
3238 
3295 
0300 
0305 
3318 
3315 
0328 
0325 
0330 
0335 
3348 
0345 
0358 
3355 
0368 
3365 




* LOADER FOR E-PROM DISC. * 

* FOR OCTOPUS EC-B5. * 

* 21.01.87 * 

* PETER LINDSTROEM * 

* SOLHAVEN 8 * 

* DK 2990 NIVAA, DENMARK * 



Version 1.2 14.02.1987 
This version intended -for OCTOPUS / ECB5. 
After idea of Mr. Andrew Gregoryi En9land 
Published in De Kenner No. 47 

For cal l from BASIC by: 

P0KE232, X:P0KE574, 144:P0KE575,53:Y=USR(Y) 

Where X=f i lenumber. 

Cal I frou other Prolans by: 
LDRIM FI If NUMBER 
STA $E8 

JSR START (start prosran on *3590) 

DIRECTORY FORMAT :- 

byte 0 -file ID nunber 

byte 1 eprow address low 

byte 2 eprow address high 

byte 3 load address low 

byte 4 load address hish 

byte 5 lensth low 

byte 5 len9th high 

byte 7 execute address low 

byte S execute address hish 

Up to 28 fi ses are a! lowed. The di rectory 
fills first page of the "disc* epro«. 
If you don't want the file to be exequtedi 
just write return address instead of exe- 
cute address in the directory. For example 
$F3!1= SPMMON 

*** MONITOR ROUTINES *** 

F32- RESET EQU $F32F clear screen 

2D73 STRQ'JT EQU *2D73 pnnt string until etx=$00 

mm EPROM DISC ADDRESSES *** 

El 90 DRA EQU *E190 6821 registers 

E191 CRA EQU $E191 

£192 DRB ECU $E192 

E193 CRB EQU *E193 

£194 EPROM EQU $£194 

*** TEMPORARY ADDRESSES *** 

00E0 EPADL EQU $E0 Points to "disc" byte 

80E1 EPADH EQU EPADL +01 

90E2 MEMADL EQU EPADL +02 points to RAM byte 

80E3 MEMADH EQU EPADL +03 

B8E4 LEML EQU EPADL +04 length of fi le 

80S5 LENH EQU EPADL +05 

80EG XQADL EQU EPADL +06 execute addr. lo 

80E3 FILEID EQU EPADL +08 hold the file ID number 

B0E9 NFIFLG EQU EPADL +09 WILE' flag 

*** MAIN PROGRAM *** 
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0371 
0375 
0380 
0385 



0395 



0405 
0418 
0415 
0428 
0425 
0438 



0435: 

0448: 

0445: 

0458: 

0455: 

0468: 

0485: 

0478 

0475 

0488 

0485 

2498 

0495 

0508 

0505 

0518 

3515 

0528 

3525 

B530 

0535 

0548 

0545 

0558 

3555 

0588 

0565 

0578 

0575 



3590 20 2F 
3593 A9 00 
3595 85 □ 
3597 20 B6 
359A ft5 E9 
359C F0 01 
359E 60 



F3 START 
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JSR RESET 

ldaim m 

STft NFIFLG 
LOAD 
NFIFLG 
STARTA 



JSR 
LDfl 
BEQ 
RTS 



clear screen 

reset 'no-file fla9' 

load the disc-file in Memory 



359F 6C EE 80 STARTA JHPI 



2D 



4C 



0585 
0598 

3535 



0605 
0S:B 
0615 
0628 
0625 
0638 
0535 
3648 
0645 
0658 
0655 
0668 
0665 
0678 
0575 
0688 
0685 



0695 
0708 
0705 
0718 
0715 
0728 



35A2 20 73 
35A5 0D 3A 
35A7 4E 4F 20 
35AA 46 49 
35AD 45 21 
35B0 flD 0A 
35B3 C6 E9 
35B5 60 



35B6 A5 E8 
35BS 48 



35B9 A9 34 
35BB A0 F 
35BD A2 00 
35BF 3E 91 
35C2 3E 93 
35C5 3C 90 
35CS 3C 92 
35CB 3D 91 



Ei 
El 
El 

EI 
El 

35CE 3D 93 El 

35D1 3E 90 El 
35D4 3E 92 El 

35D7 58 
35D8 A8 



35D9 CC 94 
35DC F3 5F 
35DE 30 02 
35E0 90 C0 
35E2 A9 09 
35E4 18 
35E5 5D 90 
35ES 8D 90 
35EB 38 EC 



Ei 



35ED 20 20 36 
35F0 E0 08 
35F2 M F9 



35F4 A5 E0 
35F6 3D 90 £1 
35F9 A5 El 
35FB 3D 92 El 



35FE E6 E4 



NOFILE JSR 
ASC 



DEC 
RTS 



XQADL JutiP to pros ran start 

STfflUT 
0D0A 

NO FILE! 



NFIFLG set no-f i le flas 



*** SUBROUTINES *** 

LOAD LDA 

Dun 
rriH 

initialise PIA 6821 



FILEID 'FILEID' must contain file no. 
before cal l ins. 
save entry 



LDAIM $04 
LDYIM $FF 
LDXIM $00 
STX CRA 



STX 

STY 
STY 
STA 
STA 

STX 
STX 

PLA 
TAY 



CRB 
DRfi 
DRB 
CRA 



DRA 
DRB 



access direction res. A 

access direction res. B 
A is output 
B is output 

access data res. A 

access data res. B 



'disc' address = 



retrieve entry 



Search for correct directory entry 



SEARCH CPY 
BEQ 



NO 



is this it? 
branch if yes 



EPRDH 
YES 
911 NO 

BCC NOFILE branch if illegal id number 
LDAIM $89 set up next address 

CLC 

ADC DRfi 
STA DRA 

BCC SEARCH branch if more 



Get eisth parsseter byt?s fro* 
directory and copy to FWt 



YES JSR PftRAH 

CPXIH $88 more? 
BNE 



branch if yes 
Transfer 'disc* start address tc PIA 
iow byte 
hish byte 



LDA EPfiDL 

STA DRA 

LDA EPADH 

STA DRB 



Copy file *ros 'disc' to Wt 
INC LENL 
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0725 


3628 EB E5 




INC 


LENH 


adjust length-pointer 


0738 


3682 90 




LDYIH $00 


0735 


! 3684 fiD 94 El 


HORE 


LDA 


EPRDK 


get byte 


0740 


3687 91 E2 




STAIY MEMfiDL 


sto^ in S81 


0745 












0758 


3689 EE 98 El 




INC 


DRA 


next 'disc' address 


0755 


■ 368C D0 83 




BNE 


POINT 


0768 


1 36BE EE 92 El 




INC 


DRB 




0765 


! 3611 C6 


POINT 


INY 




increment raw pointer 


0778 


! 3612 D8 182 




BNE 


LENGTH 




0775 


3614 EE E3 




INC 


MEMADH 




0788 


: 3616 C6 E4 


LENGTH 


DEC 


LENL 


decrement length 


0785 


i 3618 D0 hA 




BNE 


MORE 




0798 


■ 36!fl C6 E5 




DEC 


LEM^ 




0795 
0808 


i 361C D0 EE 




BNE 


MORE 


branch if wore 


0805 


! 361E 18 




CLC 




clear carry as m 


0818 


i 361F S0 




RTS 






0815 












0820 


l 3620 EE 92 El 


PfiRP^ 


INC 


DRA 


get next erf y 


0825 


: 3623 AD 94 £l 




LDA 


ERROR 




0830 


: 3626 95 E0 




STAX 


E°ADL 




0835 


: 3628 E8 




INX 






0848 


: 3629 50 




RTS 






0845 
0858 













))> Error in 0800 statettenus) 

>» Qp-Code: $8080 - $8099 / $3590 - $3625 / 0154 Bytes / 01 PH*(s) 
)>> Assenbied ay ASS114 / 3.4 



EP8»-i!SC DIRECTORY 
EC-S5 18: 14:30 - 19/07/87 



3325: 

021?: CDF0 
0015: 
0828: 
0025: 



0338 
0335 
0048: 
3045; 



0055 
0068 
13865 

mi 

8875 
8882: 



0f35 

2m 

8112a 

3115: 
0128: 
8125: 
8132: 
8135: 
8148: 
2145: 
2158: 



TTL EPRDK-DISC DIRECTORY 
ORG $CDF8 



* PRINT-OUT OF * 

* DIRECTORY FOR E-PRDtt DISC. * 

* m OCTOPUS EC-S5. * 

* 22. BE. 37 * 

* PETER LINDSTROEM * 
SDLHAVEN 8, * 

* dk: 2998 mm * 

til .1 1» I. I ^ i ft** 

'his wmm intended for OCTOPUS / ECE5, 



DIRECTORY FORMAT :- 



byte 8 
byte 1 
byte 
byte 
byte 
byte 
byte 5 
ayte 7 
byte 8 



fi le ID nuMber 
epro« address 
eprcwrt address 
?oad aodress 
load address 
length 
length 

exequte address 



low 

high 

\m 

hi Sh 
low 

hiSh 

low 



exequte address high 
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0155: 
0168: 
0165: 
8178: 
0175: 
0188: 
0185: 
0198: 
8195: 
IJ 



0218 

0215 
0228 
0225 
0238 
8235 
0240: 
0245 
0258 
0255 
0268 
0265 
2278 
8275 
82B8 
0285 
3298 
8295 
8308 
0305 
8318 
8315 
8328 
8325 
8338 
8335 
8348 
8345 
8358 
8355 
0388 
8365 
8378 
8375 
8388 
8335 



8390: 



8395: 



0405: 
0410: 
0415: 
0428: 



F32F 
2D73 
Fft57 
F7E2 
F9CB 
F982 



El 90 
E191 
El 92 
El 93 

El 94 



2322 
E7CS 
CFE0 
CFE1 
CFE2 
CFE3 

CFE5 
CFE5 
CFEE 
CFF8 
CFF9 
CFFft 
CFF8 



CDF0 20 
CDF3 20 
CDF5 as 
CDF9 20 
CBFC 20 
CDFF 20 
CE82 20 
CE34 45 
CE07 20 
CE0A 52 
CE8B 20 
CE10 20 
CE13 20 
CE16 52 
CE19 20 
CE1C 54 
CE1F 20 
CE22 59 
CE24 20 
CE27 20 
CE2P 20 
CE2D 50 
CE30 4E 
CE33 52 
CE36 59 
CE39 29 
CE3C 20 
CE3D 00 



2F F3 

73 2D 

0ft 20 

20 28 

20 20 

20 28 
20 

22 2D 

50 28 

20 4F 

4D 20 

20 44 

49 20 

20 45 

43 20 

20 4F 

52 20 
3ft 

20 20 

20 20 

20 20 

52 49 

54 45 

20 28 

2F 4E 

20 3F 



CE3E 20 02 F9 
CE41 C9 59 
CE43 F0 07 



Up to 2B fi les are al lowed. The directory 
fills first Pase of the "disc" eproa. 
The prosran name must fill the first 
16 locations of the data file, if noti 
fi l l with spaces. 



*** MONITOR ROUTINES *** 



RESET EQU 

STROUT EQU 

PRBYT EQU 

PRCHfl EQU 

CRLF EQU 

RECCHft EQU 



*F32F 
*2D73 
$Fft57 
$F7E2 
$F9CB 
*F902 



clear screen 

print strins until etx=$00 
convert byte to ASCII and print 



set Keyboard 



*** EPROM DISC ADDRESSES 



DRfi 


EQU 


$E190 


6821 registers 


CRft 


EQU 


*E191 




DRB 


EQU 


$E192 




CRB 


EQU 


$E193 




EPROM 


EQU 


*E194 




*** TEMPORARY ADDRESSES *** 


OUTDEV 


EQU 


$2322 




PftRFLG 


EQU 


*E7C8 


printer f las 


EPftDL 


EQU 


*CFE0 


points to "disc" byte 


EPflDH 


ECU 


EPftDL 


+81 


1EMADL 


EQU 


EPftDL 


+82 Points to RAM byte 


1EMADH 


EQU 


EPftDL 


+03 


LENL 


EQU 


EPftDL 


+84 lensth of fi le 


LENH 


EQU 


EPftDL 


+85 


XQfiDL 


EQU 


EPftDL 


+86 exequte addr. lo 


PRQGNAM EQU 


EPftDL 


+88 buffer for pros, nam 


ETX 


EQU 


EPftDL 


+18 end of text 


POINTL 


EQU 


EPftDL 


+19 address pointer lo 


POINTH 


ECU 


EPftDL 


+lfi address pointer hi 


TEMP 


EQU 


EPftDL 


+1B counter 


FILEID 


EQU . 


EPftDL 


+1C hold the f i le ID no. 



*** MAIN PROGRftM *** 



START 



JSR 
JSR 
HEX 



RESET clear screen 
STROUT Print heading 
0A0R202020202020202020202020 



E-PROM DIRECTORY: 



ASC 



PRINTER (Y/N) ? 



HEX -00 

JSR RECCHft 
CMPIM 'Y 
BEQ FLAG 



y/n ? 
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8425 
0438 
0435 
0440 
0445 
0450 
0455 
0460 
04G5 
0470 



0475: 



0480: 



3498 
0495 
0500 
0505 
0510 
(3515 
0520 
0525 
0530 
0535 
0540 
0545 
0550 
0555 
0550 

m 

0575 



CE45 C9 
CE47 F0 
CE49 4C 
CE4C A9 
CE4E 8D 
CE51 A9 
CE53 8D 
CE56 20 

CE59 0D 
CE5C 20 
CE5F 20 
CE62 46 
CE65 45 
CEBS 44 
CE6B 4C 
CEEE 44 
CE71 44 
CE74 2E 
CE77 54 
CE7A 54 
CE7D 44 
CE80 2E 
CE83 20 
CE86 4F 
CE89 41 
CE8C 4E 
CE8F 45 
CE92 20 
CE94 45 
CE97 52 
CE9A 20 
CE9D 44 
CEftH 0D 
CEA3 00 



0585 
0590 
0595 
0608 
0605 
0610 
0615 
0620 



0635 
0640 
0645 
0650 
0655 
0660 
0665 
0670 
0675 



4E 
B> 

F0 CD 
01 

C8 E7 
09 

22 23 
73 2D 

0A 0fi 

20 20 

20 20 

49 4C 
20 49 

23 20 
4F 41 
20 41 
44 52 
20 53 
41 52 
20 41 
44 52 
20 20 

50 52 
47 52 
4D 20 
41 4D 
20 20 
20 

2D 50 

4F 4D 

41 44 

52 2E 

0A 3fi 



FLAG 



CONT 



set printer flas 



CMPIM 'N 
BEQ CONT 
JHP START 
LDAIM $81 
STft PARFLG 
LDftIM $89 
STA OUTDEV 
JSR STRDUT 



HEX 0D0A0A20282B202020 



ASC FILE ID* LOAD ADDR. START ADDR. PROGRAM HRMf 



ASC E-PROH ADDR. 



HEX 



*** initial ise PIA 6821 *** 



CEA4 


A9 


04 




LDftIM $84 




CEA5 


A0 


FF 




LDYIM $FF 




CEA8 


A2 


00 




LDXIM $80 




CEAA 


8E 


91 


El 


STX 


CRA 


access di rection res. 


CEAD 


3E 


93 


El 


SIX 


CRB 


access direction res. 


CEB0 


3C 


90 


El 


STY 


DRA 


A is output 


CEB3 


8C 


92 


E! 


STY 


DRB 


B is output 


CEBS 


3D 


91 


El 


STA 


CRA 


access data res. A 


CEB9 


8D 


93 


a 


STA 


CRB 


access data res. B 


CEBC 


8E 


90 


EI 


STX 


DRA 


'disc' address = $000 


CEBF 


8E 


92 


£1 


STX 


DRB 




CEC2 


8E 


FB 


CF 


STX 


TEMP 


reset counter 


CEC5 


3E 


F8 


CF 


STX 


ETX 


set ETX =$00 



Fetch directory 



CEC3 


A9 


00 




'ETCH 


LDftIM $80 


CECA 


3D 


92 


El 




STA DRB 


CECD 


AD 


FB 


CF 




LDA TEMP 


CED8 


3D 


90 


El 




STA DRA 


CED3 


20 


13 


CF 




JSR GET8 


CEDE 


30 


0B 






BMI FINAL 


CED8 


A9 


09 






LDftIM $89 


CEDA 


18 








CLC 


CEDB 


6D 


FB 


CF 




ADC TEMP 


CEDE 


3D 


FB 


CF 




STA TEMP 


CEE1 


D0 


E5 






BNE FETCH 


CEE3 


A9 


00 




FINAL 


LDAIM $80 


CEE5 


8D 


C8 


E7 




STA PARFLG 


CEE8 


A9 


01 






LDAIM $81 


CEEA 


3D 


22 


23 




STA OUTDEV 


CEED 


20 


73 


2D 




JSR STRDUT 


CEF0 


0D 


0A 


0A 




HEX 0D0A0A' 


CEF3 


20 


20 


3! 






CEF6 


20 


20 








CEFS 


52 


45 


41 




ASC READY? 



no «ore entry's 

calculate next entry 
branch always 



29 





CEFB 44 


59 


3F 












CEFE 20 


28 


50 












pen 1 co 


OD 


C7 












PCftA C7 

□"0a 53 


•"VI 

20 


41 












PCffl7 OB 

CF07 20 


/•D 


4j 












PCfliA CO 


On 

29 


20 












pcor\ oa 
CF0D 20 














acoc « 

0DO&« 


LF0E 80 








HEX 


08 




f*COO« 

0b38- 


pcnr oa 
CF0F 20 


0k 


CO 

F9 




JSR 


RECCHfl 




aCQCi 

0b93« 

nrrntfli 


Url2 00 








RTS 






8/03' 
070J> 








Get eiath paratteter bytes frcw 


071B« 








directory and 


copy to RAM. 


0/1j« 
















JVT.-Va a 
07J5« 


pc< 7 


CJ- 

?4 




GETS 


IDA 






a70C ■ 

0/2D- 


pc 1 c 7a 


ran 






BMI 


END 


no tore data 


T770' 


PC 1 0 OT\ 


cr 
rL 


lr 




STA 


FILEID 




a77c; • 
0/OJ* 


PC 1 D Oa 

Lrlo 20 


2b 


Lr 


YES 


JSR 


PARflH 




0/41J" 


pc < c ca 
Uric h0 


0D 






CPXIM 


m 


More? 


0/40' 


^oa na 
up 20 U0 


CQ 

py 






BNE 


YES 


branch if yes 


0758: 


CF22 20 


75 


CF 




JSR 


PRIPAR 


pr i nt-out 


8755! 


CF25 60 






END 


RTS 






a7ca« 
















a7cc > 

0/DJ = 


^C'C CC 


19 


r i 
lI 


PARAM 


INC 


DRfl 


9et next entry 




U"i3 HD 


nj, 


tl 




LDft 


EPROM 




0/ / j« 


pc op on 

Li 21 3D 


ca 

L0 


fir 




STAX 


EPflDL 




a7oa« 


PC^C CO 








m 
















RTS 






0790: 
















0795: 








*** Print Y x 


space * 


** 


0800: 
0805: 


CF31 A9 


22 




YSPACE 


LDfllH 


$20 




3810. 


CF33 28 


CO 


F7 


FINISH 


JSR 


PROtfl 




0815 


CF35 88 








DEY 






0820: 


CF37 C0 


00 






CPYIM 


$80 




13825 


CF39 D0 


FS 






8NE 


FINISH 




0830' 


CF3B 60 








RTS 







: CF3C 38 






DECPNT 


: CF3D AD 


P9 


ff 




i CF48 E9 


31 






: CF42 3D 


F9 


CF 




: CF45 80 


33 






: CF47 CE 


Ffl 


CF 




: CF4A 60 






DECPZ 



0908 
3905 


: CF4B A2 


10 




0910 


: CF4D 20 


3C 




0915 


: CF58 AD 


F9 


CF 


2928 


: CF53 8D 


90 


£1 


0925 


: CF56 AD 


Ffl 


eF 


0938 


: CF59 3D 


92 


El 


0935 


: CF5C CA 






0940 


: CF5D AD 


94 


£1 


0945 


: CF50 9D 


ES 


CF 


0958 


: CF63 E0 


00 




0955 


: CF65 D0 


ES 




0960 


: CF67 60 






0965 









**+• DECPNT decrement addr. pointer by one *** 

SEC 

IDA POINTL 
SBC IK $01 
STA PQINTL 
BCS DECPZ 
DEC POINTH 
RTS 

*** GTFINfl get file name *** 
*** and copy to ram *** 

GTFINA LDXIM$10 
GTFINB JSR DECPNT 
POINTL 
DRfl 
POINTH 




EPRON 
PROGNAM 



*** SETPNT set addr. pointer *** 



0990 
0995 
1008 
1805 



: CF68 AD 


£0 


CF 


SETPNT LDA EPflDL 


: CF5B 3D 


F9 


CF 


STA POINTL 


: CF6E AD 


El 


CF 


LDA EPftDH 


: CF71 3D 


Ffl 


CF 


STA POINTH 


: CF74 60 






RTS 


: 






*** PRINT PARAMETERS 


i CF75 A0 


i39 




PRIPflR LDYIM $09 


: CF77 20 


31 


CF 


JSR YSPflCE 



30 
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1030: CF7fl flD FC CF LDfl FILEID 

1835: CF7D 29 57 Ffi JSR PRBYT Print file t 

1040: CF80 A0 0E LDYIM $06 

1045: CFB2 20 31 CF JSR YSPflCE 

1050: CF85 flD E3 CF LDfl MEMflDH 

1055: CF88 20 57 FA JSR PRBYT 

1060: CF8B flD E2 CF LDfl MEMftDL 

10B5: CF8E 20 57 Ffl JSR PRBYT Print nemry load addr. 

1070: CF91 A0 08 LDYIM $88 

1075: CF93 20 31 CF JSR YSPflCE 

1080: CF96 flD E7 CF LDfl XQftDL +01 

1085: CF99 20 57 Ffl JSR PRBYT 

1090: CF9C flD E CF LDfl XQftDL 

1095: CF9F 20 57 Ffi JSR PRBYT Print start addr. 

1108: CFA2 20 S3 CF JSR SETPNT 

1105: CFA5 20 4B CF JSR GTFINfl 

1118: CFflS fl0 05 LDYIM $86 

1115: CFflfl 20 31 CF JSR YSPflCE 

1128: CFflD 20 C5 CF JSR PRINAME Print Prwratt-naoe 

1125: CFB0 ft0 05 LDYIM $05 

1138: CFB2 20 31 CF JSR YSPflCE 

1135: CFB5 flD El CF LDfl EPftDH 

1148: CFB8 20 57 Ffi JSR PRBYT 

1145: CFBB AD E0 CF LDfl EPftDL 

1150: CFBE 20 57 Ffi JSR PRBYT Print E-PROM addr. 

1155: CFC1 20 CB F9 JSR CRLF 
1168: CFC4 50 
1165: 

1178: *** PRINAME print the Prosraa-nanie *** 

1175: 

1188: CFC5 A0 00 PRINAME LDYIM $80 

1185: CFC7 B9 E8 CF PRINT LDAY PROGNAM 

1398: CFCfl C9 00 CMPIM $00 end of text? 

1195: CFCC F0 06 BEQ PRIEND 

1208: CFCE 28 E2 F7 JSR PRCHA 

1205: CFD1 C8 INY 

1218: CFD2 D0 F3 BNE PRINT 
1215: CFD4 60 PRIEND RTS 
1228: 



)>> Error in 8000 stat«ent<s) 



>» OP-Code: $8088 - $B1E4 / $CDF0 - $CFD4 / 0485 Bytes / 02 Pase(s) 
)>> flssenbled by ASS114 / 3.4 



31 


C300 


C808 


CDPIt* M-15.97 


0110 


02 


m& 


*M 


ASS 114 *U.4 


0910 


03 


21:00 


02510 


UDRDPROC. V.3.0 


2320 


34 




BC00 


ED*!D V.2.0 


4920 


35 


wm 


CC80 


REAL T I^E Ml 


5B20 


06 


zm 


CE00 




5E4£ 


07 


zm 


cm 


LARGE BjflSSmSB 


5*00 


m 


zm 


zsm 


mm. DECODER 


5740 




zm 


CDS? 


EPSOM PROGRAMMES 


6R9g 


m 


:: z 2 


CBF0 


E-°RO< DI-ED'ORY 


5D00 


BP 


C*00 


~F00 


SCREEN tm 


6F00 


2Z 


C0SB 


mm 


ZERQ-fftSE -.1ST 


SFS8 



31 
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10 REM *************** PROGRAMM NUMINT *************** 

20 REM DIESES PROGRAMM DIENT ZUR NUMERISCHEN INTEGRATION 
30 REM VON STETIGEN FUNKTIONEN NACH DER SIMPSONSCHEN REGEL 
40 REM VEROEFFENTLICHUNG IN DER FUNKSCHAU 1980, HEFT14/83 
50 REM AUTOR : DIETER SMODE 13-12-1978 

60 REM EINGABE VON FUNKTIONSWERTEN NACH "FORMEL-INPUT 
70 REM BEIM AIM-65 IN DER FUNKSCHAU 25/1980/97 
80 REM 

90 REM AUF DEN EC-65 ANGEPASST DURCH W.TIETSCH, APRIL 1986 
100 REM *****************************************«#####*#**»»* 

110 : 
120 : 

130 T1=PEEK(2888) : T2= PEEK (8722) : P0KE2888, 
140 DISK! "GO F32F" : REM CLEAR SCREEN AND 
150 DISK! "10 ,01: REM SCREEN ONLY OUTPUT 
160 REM ALLOW <CR> ONLY INPUT — > "" 
170 F0RI=1T05:PRINT:NEXTI 

180 PRINTTAB (20) "***************************************♦###'• 

190 PRINTTAB(20) "* #» 
200 PRINTTAB (20) "* Dieses Programm *" 

210 PRINTTAB (20) "* #» 

\Vk ES^.II^SSSS? !!* dient zur numerischen Integration *" 

230 PRINTTAB (20) '* von *" 

240 PRINTTAB(20)"# stetigen Funktionen *" 

250 PRINTTAB (20) "* naoh der *" 

260 PRINTTAB (20) "* ♦'• 

?JR E5^II£t532J !!* Simpson'schen Regel *" 
280 PRINTTAB ( 20) "* ♦'• 

290 PRINTTAB (20) "***********************#****************###" 

320 ST=0:IFPEEK(8999)=58THENST=14975:REM DOS V3.3 

330 SD=0:IFPEEK(8999)=50THENST=12927:REM DOS V3.2 

340 IF ST=0 THEN2020 

350 PRINTTAB (20) : 

360 F0RI=0T023:READA*(I) :NEXTI 

370 F0RI=STT0(ST+PEEK(ST-2)*2048) 

380 IF(PEEK(I)=149)AND(PEEK(I+4)=88)AND(PEEK(I+7)=58)THENSD=I 
390 PRINT. "; :IFPOS(X) >52THENPRINTCHR$(13) ; : PRINTTAB (20) ; 
400 IFSDO0THEN420 
410 NEXTI: PRINT: G0T02000 

420 SD=SD+7:SA=SD:PRINTCHR*(13) ; : PRINTCHR*(27 ) s "5 " s 
430 PRINTCHR*(27) ; "4": .-PRINT 
440 SD=SA : REM F0RMEL-EIN6ABE 

450 PRINTTAB(20) "Die zu integrierende Funktion bitte in" 

460 PRINTTAB(20) "f olgender Form mit maximal 55 Zeichen" 

470 PRINTTAB(20) "nacn dem '?' eingeben ( pi ist installiert )!" 

480 PRINT: PRI NTT AB( 20 )"Beispiel --> FNY(Xj=X"2+(3*X)"(-2)" 

490 PRINTTAB(20) "Eine Eingabe von <CR> beendet das Programm" 

500 PRINT : PRINTTAB ( 1 4) : : INPUT"FNY ( X ) = " : W* 

510 W=LEN(W*):IFW$=""THEN2060 

520 IFW<56THEN570 

530 PRINTTAB(20) "Ausdruck >55 Zeichen. Bitte neu eingeben !" 
540 PRINTCHR$(13) : : F0RI=1 T02000 : NEXTI y 
550 F0RI=1T011 :PRINTCHR*(27) ;"5": :NEXTI 
560 PRINTCHR*(27) ; "4" ; : PRINT : GOT6440 

570 F0RI=SDT0SD+55:P0KEI,58:NEXTI:REM FILL WITH ":" 

580 REM SEARCHING FOR THE MATH EXPRESSIONS AND SUBSTITUTION BY TOKENS 

590 F0RI=1T0W 

600 W7. = ASC(MID*(W*,I,1) ) 

610 F0RJ=0T023 

620 IFMID*(W*,I,LEN(A*(J)) ) =A*( J ) THENWX= J+1 63 
630 NEXTJ 

640 IFW7.>172ANDW7.<187THENI = I + 2 
650 P0KESD,W/.:SD = SD+1 : 
6 6 6 ? 0 NEXTI 

680 GOTO 999 
690 : 

}H m UiMildihhMm'M'M'"* 

888 REM THE NEXT STATEMENT WILL BE SELF ADJUSTING 

999 DEFFNY(X) = : 1 1 1 1 I S S s S t f f t ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 S IIS f I 1 1 1 1 1 1 1 1 1 1 1 I f I f l 1 1 1 f I 

1000 Z=0:DISK!"GO F32F : PRINT : REM CLEAR SCREEN 

1010 PRINTTAB(20) "Berechnung mit halber Schrittweite und " 



3 2 



Mh b 0 2 KENNER EC65 CORNER 

1020 PRINTTAB(20) "und anschl iessender Fehlerabschaetzung" 
1060 Z = 1 

1080 PRINT:PRINTTAB(20) ::INPUT"Untere Grenze = ";U 
1090 PRINTTAB(20) ; : INPUT"Obere Srenze * ";0 
1100 PRINTTAB(20)i:INPUT"Schrittzahl = ";S 
1110 K=SAND1 : IFK=0ANDS>=2THEN1 1 60 

1120 PRINT" > Die Schrittweite muss eine gerade ; 

1130 PRINT"ganze Zahl sein !"; 
1140 F0RI=1?02000:NEXTI 

1150 PRINTCHR* (13) ; : PRINTCHR* (27) : "5" s CHR* (27) ; "4" 5 
1155 PRINTCHR$(27) j"5": : PRINT :G0T011 00 

1160 H=(0-U)/S:PRINT:PRINTTAB(20) "Die Schrittweite h = ";H 
1170 F=FNY(U)+FNY(0)+4*FNY(U+H> 
1180 IFS=2THEN1210 

1190 F0RK=1T0S/2-1 : F1 =FNY ( U+ (2*K+1 ) »H > :F2=FNY(U+2*K*H) 
1200 F=F+4*F1+2*F2:NEXTK 

1210 F=F*H/3:PRINT: PRINTTAB (20) "Fl aecheninhal t F = ":F 
1220 PRINT s PRINTTAB (20) ; : F0RI = 1 T040 : PRINT"# ": : NEXTI : PRINT 
1230 IFZ=0THENPRINT:G0SUB1800:IFFL=0THEN440sREM NEW FUNCTION 
1235 IFZ=0THEN1000 
1240 IFZ=2THEN1260 

1250 G=F:H=H/2:S=2*S:Z=2:G0T01160 
1260 F=(16*F-G) /15 

1270 PRINT: PRINTTAB(20) "Flaeohe^nach^Fehlersch. = ";F:Z=0 
1280 PRINT: PRINTTAB (20) ; : F0RI=1 T040 : PRINT * ; : NEXTI : PRINT 
1290 PRINT : PRINTTAB (20) "Erneute Berechnung mit den gleichen" 
1300 PRINTTAB(20) "Grenzen aber anderer Schrittweite (J/N) 
1305 PRINTTAB(20) "Neue Funktion eingeben — > <CR> "; 
1310 INPUTW*: IFW*="N"THEN1 000 
1315 IFW*=""THENDISK! "GO F32F":G0T0 440 
1320 I FW$= 11 J 11 THEN 1 340 

1 330 PRINTCHR* (13): PRINTCHR* (27) ; "5 " ; CHR* (27) ; "5 " ; : PRINT 
1335 G0T01300 

1340 PRINTTAB (20) ; : INPUT"Schrittzahl (gerade) = ";S 
1350 PRINTTAB(20)|:INPUT"Fehlerschaetzung (J/N) ";W* 
1360 IFW*="J"THENZ=1 
1370 PRINT:G0T01160 
1800 : 

1810 PRINTTAB(20) ; : INPUT"Weiter (J-CR) : Quit --> <CR> "?W* 

1820 PRINTCHR* (6) CHR* (27) 5 "8" ; : PRINT 

1830 IF W*=" "THEN FL=0: RETURN 

1840 FL=1: RETURN 

1998 : 
\ 999 • 

2000 DISK! "GO F32F" : PRINTTAB(20) "PROG-ERR — > NO DEFFN !" 
2010 GOTO 2040 

2020 DISK! "GO F32F" : PRINTTAB(20) "There are buffers installed" 
2030 PRINTTAB(20) "or an incompatible version of DOS/BASIC !" 
2040 PRINTTAB(20) "PROGRAM WILL BE TERMINATED SOON 1!" 
2050 F0RI=1T04000:NEXTI 

2060 DISK! "GO F32F" : P0KE2888 , T1 : P0KE8722 , T2 : DISK ! "10 ,01":END 
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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

001 1 

0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 

0021 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 

0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

888 

0068 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
0078 



0000 



0000 
0000 
0000 
0000 
0000 



0000 
0000 
0000 



0000 
0000 
0000 
0000 



0000 
0000 



0200 
0203 
0205 
0208 



020A 
0200 
020F 
021 1 
0213 



X- ^t- M- X- M- * -* -X- -X- -X- -X- -X- X * X X *- X- 

language: study help program 

4t--M--M--tt--M--K--tt--M--K--M- X~ X- -X- X X- X- -*- *- * -X- -* n 



A program originally written for the KIM 



Adapted for the 
By W. Van Pelt . 

By M. Lachaert. 



Junior 
Hol 1 and 



ctopus 
ium 



elg: 



Version 3.0 - 19.07.1987 
Last review - 21.07.1987 



Type in the word of which you want. a translation, 
followed by "=" and the program will search in 
its memory for the translation. If this is not a- 
vailable, the program will answer with "?". You 
the translation yourself, followed 



can now type 
by an monkeyt 
the "delete*' 



you do not 



ft ail (d> . I 
- ' key <$7F) . 
If you want to remove information, 
up, followed by a control-C. 



wish so, type 
call it 



-*-w--»«--x--j«--x--»«--*--»(--x--*--x--*- 

.TIT ' LAN6UA6E 

SYSTEM VARIABLES 

WIJZER = $10 

SAVEY = $12 

BUFFER = $100 

START = $3FFF 

EIND = $0000 

DOS ROUTINES 



* * ^* 4+ X -* X -X ^ X M X * 

STUDY HELP PROGRAM V3.0' 



ADDRESS POINTER IN FIL_ 
SCRIBBLING ADDRESS Y-REGISTER 
FIRST ADDRESS TEXT BUFFER 
START OF DATA FILE - 1 
END OF DATA FILE + 1 



INECHO 

PRINT 

CRLF 



= $234 
= $234; 
= $2D6A 



SPECIAL CHARACTERS 



CTLC 
BS 
EOW 
DEL 



= $03 
= $08 
= $40 
= $7F 



.OPT SYM 



; INPUT A CHAR FROM A.I.D. 
; PRINT CHARACTER ON A.O.D, 
; PRINT CR/LF ON A.O.D. 



ffis R P°kc! ' EREAK 

WORD DELIMITER 
DELETE (RUBOUT) 



$0200 



START OF PROGRAM 



206A2D TAALST 

A940 

8DFFCF 

A200 



JSR CRLF 
LDA #E0W 
STA EIND-1 
LDX #$00 



ENTER WORD IN LANGUAGE 1 IN 



CR/LF 

SET END OF FILE 
PRESET X TO READ AND. 
BUFFER 



204023 NEXTIN 

C97F 

FOEF 

C903 

F056 



JSR INECHO 
CMP #DEL 

BEQ JCLEAR 



. . .TO FILL THE BUFFER 
DELETE CHAR? 

=> YES, REMOVE DATA 
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0079 
0080 
OOfil 
0082 
00S3 
0084 
0085 
0086 
0087 
0088 
0089 
0090 
0091 
0092 

88?? 

0095 
0096 
0097 
0098 
009° 
0100 
0101 
0102 
01 03 

□ 104 

□ 105 
0106 
CM 07 
0108 
0 1 09 

duo 

(j-¥ i 1 
0112 
0 1 1 3 
n 1 i 4 
H 1 15 
Q 1 1 6 
0117 

n i j 9 

n •< w 

01 22 
0123 

012<: 



0 1 2 5 

0 1 to 

Q 1 J 1 

0 1 1 

013** 

n < *7.r 

01 S6 
0137 
01 38 
0139 

01 *rO 

r 1 4 1 
H 1 42 
Of 43 

d 1 4 4 

6 1 a 5 
0146 

Q ' i ? 
01 48 
0149 
0150 
0151 
2152 

u J -i _/ 

01 5 A 
0 1 c r . 
0156 



0215 
0217 
0219 
021 C 

0210 
021F 



0221 
0223 
0225 
0227 



C908 
F049 
9D0001 
E8 



C93D 
D0E9 



bsin 



CMP #BS 
BE© BACKSP 
STA BUFFER, X 
INX 

CMP #'=' 
BNE NEXT IN 



; BACKSPACE? 

=> YES, DO IT! 
; STORE IN BUFFER 
j READY FOR NEXT CHARACTER 



: = > NO, NEXT CHAR IN 
SEARCH IN FILE FOR WORD IN BUFFER 



A9FF LDA # < S T A R T 

8510 STA WIJZER 
A93F LDA #>START 

8511 STA WIJZER+1 



: POINTER = START OF FILE 



0229 AOOO ZOEK LDY #$00 



Q22B 
n 2 ■? c 
022 F 

0231 
□ 233 
0235 
0237 
0239 
023E 

0?3D 
023E 
0240 
0243 

0245 
0247 

p 9 i P 



E610 LDAADW INC WIJZER 
DC02 BNE SKIP 

E611 INC WIJZER+1 

A9D0 SKIP LDA #>EIND 
C511 CMP WIJZER+1 

F037 BE© NIETGV 

1110 LDA (WIJZER) . Y 

C940 CMP #EOW 

DOEE BNE LDAADW 

C8 NXTWRP I NY 

B110 LDA < WIJZER). Y 

D9FF00 CMP BUFFER- 1 Y 

DOE 4 BNE ZOEK 

C«?3D CMP 

F002 EL© GEVOND 

D0F2 BNE NXTWRD 



INCREMENT POINTER 

POINTER ON END' 

=> YES, ITEM NOT FOUND 

WORD DELIMITER? 

=> NO. CONTINUE SEARCHING 



COMPARE CHAR IN BUFFER. . . 
... TO THE ONE IN BUFFER. 
=> NOT THE SAME 

YES. FOUND ' 

NO. ' TEST NEXT WORD 



02 4 B 


E612 EE VON D 


INC 


SAVEY 




j 


INCREMENT SCP7.BLIKG POINTER 


0240 


C8 


I MY 












T P A N r ' P ^ : P T 


W 0 R D 


I N F I L E 


y 


C BUFFER 


024E 


illO HEWUt 


LDA 


< W I J t E R > . 




TRANSPORT CHAR IN FILE. . « 


0250 


pojr (T.-i.n 


STA 


BUFFER- 


1 . 


Y ■ 




025 3 


C94« 


CMP 


IEOW 






word" del in:te c ? 


r.-.t t 


fqqp 


PL? 


r jv - 5 y 








Q2S7 


8 4 1 2 


STY 


SAVEY 






SAVE Y-'-RFG 


025 9 


204323 


i a p 


p R t m T 






PRINT CHA^ 


025 C 


A41 2 


LDY 


g £ Q £ y 






r Es t ORE y - r f 


Q25f 




I NY 










025 F 


4 C 45 02 


IMP 


Mf RV'f.'L 






PROCEED HITH NEXT CM-. R 




DECREMENT 


SCRXBLINS POINTER 


> 00 BACKSPACE 


0262 


CA BACKSP 


DUX 










0243 


< C1D02 




r ( ; I N 








n ;•• ; /, 


E '12 IN CSV 


I N C 


BAVFY 




» 


mOtCffENT SCRIP "... SUS POINTER 




4C9802 


IMP 


SCHEEN 








0260 


4CC3G2 JCLEAP 


JM P 


CLEA R 










WORD NOT I 


- OUND . 


PRINT 


•f 


AND 


GIVE TRANSLATION 


mi, e 


A93F NIETGV 


LDA 








PRINT 


0270 


204323 


JSR 


PRINT 




* 




ENTER NEW 


TRANSLATION 


IN 


BUFFER 


0273 


204023 INVOER 


JSR 


INECHO 




« 


FETCH AND PRINT CHAR 


0276 




CMP 


# DEL 




» 

J 


DELETE CHAR 7 


n - 7 g 


F086 


BE© 


TAALST 






«> YES. START AGAIN 


027 A 


9D0001 


STA 


BUFFER. 


X 






027$ 


C940 


CMP 


#EOW 






WORD DELIMITER? 


027F 


D003 


BNE 


NOEND 




5 


= > NO, CONTINUE INPUT 


0281 


4C8802 


JMP 


STORE 




• 
• 


YES, STORE THE WORD 


0284 


E8 NOEND 


INX 






• 


INCREMENT OFFSET IN BUFFER 


0285 


4C7302 


JMP 


INVOER 




■ 


GO FOR NEXT CHAR INPUT 



35 
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0157 

0158 

0159 

0160 

0161 

0162 

0163 

0164 

0165 

0166 

0167 

016S 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 

0181 

0182 

0183 

0184 

0185 

0186 

0187 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 

0201 

0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 

021 1 

0212 

0213 

fflt 

0216 
0217 
0218 
0219 
0220 
0221 
0222 
0223 
0224 
0225 
0226 
0227 



STORE NEW WORD IN FILE 



0288 
0289 
028B 
0280 
028E 
0290 
0292 
0294 
0296 



E8 

8612 
A900 
18 

E512 
8510 
A9D0 
E900 
8511 



STORE 



INX 
STX 
LDA 
CLC 
SBC 
ST A 
LDA 
SBC 
STA 



SAVEY 
#<EIND 

SAVEY 
WIJZER 
#>EIND 
#$00 

WIJZER+1 



INCREMENT OFFSET IN BUFFER 
PUT IN SCRIBLING POINTER 

^BiG8i N S5lD-LlH8H? F iG I to«R 



0298 A2FF 



MAKE PLACE FOR NEW WORD 
SCHEEN 



029A 
029C 
029E 
02A0 
02A2 
02A4 
02A6 
02A8 



AOOO 
B1 10 
A412 
9110 
C610 
E410 
D002 
C611 



SCHUIF 



02AA A93F 
02AC C511 
02AE DOEA 
02B0 A412 



NODEC 



LDX 


#$FF 




LDY 


#$00 




LDA 


(WIJZER) , 


Y ; 


LDY 


SAVEY 


8 


STA 


(WIJZER) , 


Y " 


DEC 


WIJZER 


• 

i 


CPX 


WIJZER 




BNE 


NODEC 




DEC 


WIJZER+1 




LDA 


#>START 


• 


CMP 


WIJZER+1 




BNE 


SCHUIF => 


NO 


LDY 


SAVEY 





INSERT WORD 



02B2 
02B5 
02B8 
02B9 
02BB 
02BO 
02CO 



B9FF00 VUL 


LDA 


BUFFER- 1 . Y 


9 


990040 


STA 


START+1 ,Y 


; 


86 


DEY 






D0F7 


BNE 


VUL 




A940 


LDA 


#E0W 


■ 

S 


8D0040 


STA 


START+1 




4C0002 


JMP 


TAALST 


« 

1 



REMOVE WORD FROM FILE 



02C3 AOOO 



02C5 
02 C 6 
02C9 
02CB 
02CD 
02CE 
02D0 
02D2 
02D4 
02D6 

02D8 

02 DC 
02DE 
02E0 
02E2 
02E4 

02E6 
02E8 
02EA 
02EC 



02EF 



C 8 

B90040 

C940 

DOFS 

C8 

8412 
A9FF 
8510 
A93F 
8511 

A412 
B1 10 
A001 
9110 
E610 
D002 
E611 

A9D0 
C511 
DOEC 
4C0002 



CLEAR 
CLOOP 



SCHSCH 



NOINC 



LDY 


#*00 


INY 


START+1 , Y 


LDA 


CMP 


#EOW 


BNE 


CLOOP 


INY 




STY 


SAVEY 


LDA 


# < S T A R T 


STA 


WIJZER 


LDA 


# >ST ART 


STA 


WIJZER+1 


LDY 


SAVEY 


LDA 


(WIJZER) , Y 


LDY 


#$01 


STA 


(WIJZER) , Y 


INC 


WIJZER 


BNE 


NOINC 


INC 


WIJZER+1 


LDA 


#>EIND 


CMP 


WIJZER+1 


BNE 


SCHSCH . 


• 


TAALST 


.END 



TRANSPORT CHAR IN POINTER 
...TO POINTER + WORD LEN6HT 

DECREMENT POINTER 



BOTTOM REACHED? 



FILL OPEN SPACE. . . 

. . .WITH WORD IN BUFFER 

=> NOT COMPLETE 
PUT WORD DELIMITER 

RESTART 



; WORD DELIMITER? 

: => NO 

: SCRIBLING POINTER = Y-REG 

: SET POINTER ON START 



; DELETE WORD 



; INCREMENT POINTER 



END OF FILE? 
= > NO 

=> YES, RESTART 



END OF ASSEMBLY 



ERRORS DETECTED: 0000 



<0000> 



Maze for Junior 
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00D0 
00D1 
00D2 
00D3 
00D4 
00D5 
00D6 
00D7 
00D8 
00D9 
OODA 
OODB 



OODO 



0100 
1A80 
1A81 
1A82 
1C1D 
1DAC 
1DF9 



length 

lenmin 

hbyte 

hbit 

cur 

disone 

distwo 

disthr 

flash 

savx 

bit 

dis 

data 

pad 

padd 

pbd 

reset 

scdsb 

getkey 



org 
res 
res 
res 
res 
res 
res 
res 
res 
res 
res 
res 
res 

equ 
equ 
equ 
equ 
equ 
equ 
equ 



|00d0 



S0100 
$la80 
pad+1 
pad+2 
field 
$ldac 
$ldf9 



length of maze (bytes) 

length minus 1 

hor. position (bytes) 

hor. position (bit) 

low byte address or cursor 

pattern of display 1 

pattern of display 2 

pattern of display 3 

rlashcounter 

temporary storage for x 

used in caldis 

used in caldis 

shape of maze 



monitor entry 
scan keyboard 

get value of depressed key 



0200 



0200 
0201 
0202 
0204 
0205 
0208 
020A 
020C 
020D 
020F 
0211 
0214 
0217 
0219 
021A 
021B 
021D 
021E 
0220 
0222 
0224 
0226 
0228 
022A 
022C 
022E 
022F 
0231 
0233 
0235 
0237 
0238 
023B 
023D 
023F 
0241 
0244 
0246 
0248 
024A 
024B 
024D 
024F 
0251 
0253 
0255 



78 
D8 

A2 FF 
9A 

AE 0001 
F0 OA 
86 DO 
CA 

86 Dl 
A2 00 
8E 0001 
BD 0001 
30 07 
8A 
18 

65 DO 
AA 

DO F4 
86 D4 
A9 00 
85 D2 
A9 80 
85 D3 
A6 D4 
A5 D3 
OA 

90 07 
A5 D2 
F0 06 
A9 01 
CA 

20 DC02 
85 D5 
A6 D4 
A5 D3 
20 DC02 
85 D6 
A6 D4 
A5 D3 
4A 

90 09 
A5 D2 
E5 Dl 
F0 06 
A9 80 



maze 



search 



found 



main 



calone 
strone 



org 

sei 

eld 

ldx 

txs 

ldx 

beq 

stx 

dex 

stx 

ldx 

stx 

Ida 

bmi 

txa 

clc 

adc 

tax 

bne 

stx 

Ida 

sta 

Ida 

sta 

ldx 

Ida 

asla 

bec 

Ida 

beq 

Ida 

dex 

jsr 

sta 

ldx 

Ida 

jsr 

sta 

ldx 

Ida 

lsra 

bec 

Ida 

sbc 

beq 

Ida 

inx 



$0200 



#$ff 

data 

search 

length 

lenmin 
#$00 
data 
data , x 
found 



length 

search 

cur 

#$00 

hbyte 

#$80 

hbit 

cur 

hbit 

calone 
hbyte 
strone 
#$01 

caldis 

disone 

cur 

hbit 

caldis 

distwo 

cur 

hbit 

calthr 

hbyte 

lenmin 

strthr 

#$80 



length already initialized ? 



search entrance 



try next line 
entrance found 
mostleft position 



mam program 

calculate pattern of display 1 



leftmost pos then blank display 

calculate pattern of display 2 
calculate pattern of display 3 

rightmost pos then blank display 



i .1 r 
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Maze 


for Junior 


0256 


20 


DC02 


0259 


85 


D7 


025B 


20 


0503 


025E 


DO 


FB 


0260 


20 


0503 


0263 


F0 


FB 


0265 


20 


0503 


0268 


F0 


F6 


026A 


20 


F91D 


026D 


C9 


04 


026F 


B0 


EA 


0271 


A6 


D4 


0273 


C9 


00 


0275 


DO 


IF 


0277 


A5 


D3 


0279 


OA 




027A 


90 


07 


027C 


A5 


D2 


027E 


FO 


13 


0280 


A9 


01 


0282 


CA 


0283 


A8 




0284 


3D 


0001 


0287 


FO 


OA 


0289 


84 


D3 


028B 


86 


D4 


028D 


CO 


01 


028F 


DO 


02 


0291 


C6 


D2 


0293 


4C 


2A02 


0296 


C9 


01 


0298 


DO 


06 


029A 


8A 




029B 


E5 


DO 


029D 


4C 


A802 


02A0 


C9 


02 


02A2 


DO 


14 


02A4 


18 




02A5 


8A 




02A6 


65 


DO 


02A8 


AA 




02A9 


A5 


D3 


02AB 


A8 




02AC 


3D 


0001 


02AF 


FO 


04 


02B1 


84 


D3 


02B3 


86 


D4 


02B5 


4C 


2A02 


02B8 


A5 


D3 


02BA 


4A 




'02BB 


90 


09 


02BD 


A5 


D2 


02BF 


C5 


Dl 


02C1 


FO 


16 


02C3 


A9 


80 


02C5 


E8 




02C6 


A8 




02C7 


3D 


0001 


02CA 


FO 


OA 


02CC 


84 


D3 


02CE 


86 


D4 


02D0 


CU 


OA 
OU 


02D2 


DO 


02 


02D4 


E6 


D2 


02D6 


4C 


2A02 


02D9 


4C 


1D1C 


02DC 


85 


DA 


02DE 


A9 


00 


02E0 


85 


DB 


02E2 


AO 


02 


02E4 


18 
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calthr jsr 
strthr sta 
shget jsr 
one 

shgeta jsr 



lefta 



mama 
up 



down 



downa 



mainb 
right 



righta 



mamc 
mon 

caldis 



sr 



jsr 

cmp 

bcs 

ldx 

cmp 

bne 

Ida 

asla 

bcc 

Ida 

beq 

Ida 

dex 

tay 

and 

beq 

sty 

stx 

cpy 

bne 

dec 

jmp 

cmp 

bne 

txa 

sbc 

jmp 

cmp 

bne 

clc 

txa 

adc 

tax 

Ida 

tay 

and 

beq 

sty 

stx 

21 

lsra 

bcc 

Ida 

cmp 

beq 

Ida 

inx 

tay 

and 

beq 

sty 

stx 

cpy 

bne 

inc 

D m P 

sta 
Ida 
sta 
Idy 
clc 



caldis 

disthr 

show 

shget 

show 

shgeta 

show 

shgeta 

Jetkey 
$04 
shget 
cur 
#$00 

h§it 

lefta 
hbyte 
mama 
#$01 



data / x 

maina 

hbit 

cur 

#$01 

maina 

hbyte 

main 

#$01 

down 

length 
downa 
#$02 
right 

length 

hbit 

data / x 

mainb 

hbit 

cur 

main 

hbit 

righta 

hbyte 

lenmin 

mon 

#$80 



data / x 

mainc 

hbit 

cur 

#$80 

mainc 

hbyte 

mam 

reset 

bit 
#$00 
dis 
#$02 



Page 1 



show display and wait for key 



only keys 0123 valid 



0 is left 



once started there is no returning 



wall ? 

move is correct 

if cur decremented then also hbyte 



1 is up 



2 is down 



wall ? 



3 is right 



mostright position ? 
then ready 



wall ? 



if cur incremented then also hbyte 



calculate pattern of display 

in: A=bitno/ X cxpints to middle segment. 

out: X=pattern ([inverted) 

start with bottom segment (d) 



3 8 
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Maze 


for Junior 


02E5 


8A 




02E6 


65 


DO 


02E8 


AA 




02E9 


BD 


0001 


02EC 


25 


DA 


02EE 


DO 


07 


02F0 




UD 


02F2 


19 


0203 


02F5 


OJ 




02F7 


38 




02F8 


8A 




02F9 


E5 


DO 


02FB 


AA 




02FC 


88 




02FD 


10 


EA 


02FF 


A5 


DB 


0301 


60 




0302 


01 


40 08 


0305 


C6 


D8 


0307 


DO 


06 


0309 


A5 


D6 


030B 


49 


40 


030D 


85 


D6 


030F 


A9 


7F 


0311 


8D 


811A 


0314 


AO 


08 


0316 


A2 


00 


0318 


86 


D9 


031A 


B5 


D5 


031C 


49 


7F 


031E 


8D 


801A 


0321 


8C 


821A 


0324 


A2 


7F 


0326 


CA 




0327 


10 


FD 


0329 


8E 


801A 


032C 


A2 


06 


032E 


8E 


821A 


0331 


C8 




0332 


C8 




0333 


A6 


D9 


0335 


E8 




0336 


E0 


03 


0338 


DO 


DE 


033A 


4C 


ACID 
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nxtseg 



pat 
show 



showa 



shwone 



delay 



0200 

Errors detected: 0 



txa 
adc 
tax 
Ida 
and 
bne 
Ida 
ora 
sta 
sec 
txa 
sbc 
tax 
dey 
bpl 
Ida 
rts 

fcb 

dec 
bne 
Ida 
eor 
sta 
Ida 
sta 
Idy 
ldx 
stx 
Ida 
eor 
sta 
sty 
ldx 
dex 
bpl 
stx 
ldx 
stx 
iny 
iny 
ldx 
inx 
cpx 
bne 
jmp 

end 



length 

data,x 
bit 

nxtseg 
dis 
pat,y 
dis 



length 



oneseg 
dis 



$01 ,$40, $08 

flash 

showa 

distwo 

#$40 

distwo 

#$7f 

padd 

#$08 

#$00 

savx 

disone,x 

#$7f 

pad 

pbd 

#$7f 

delay 
pad 
#$06 
pbd 



savx 

#$03 

shwone 

scdsb 



Page 2 

calculate one segment 

segment remains blank 
set segment 



maze 



not yet done all segments ? 
result pattern 

segments a (upper), g (middle), and d (bottc 
show display 
invert cursor 

pa is output 



show one display 

1 is stored 



only three displays shown 
scan keyboard 



MAZE 



Pieter de Visser 



bit means a wall, a one is a hole. 



Needed: Standard Junior 

The intention of this game is to find 
the exit from the maze. You can see 
only a few blocks around you on the 
display. The following keys are used to 
walk around: 
0-left 1-up 2-down 3-i 



Any maze must satisfy these characteris- 
tics: 

First byte of data must contain the 
length of the maze in bytes (so length 
must be an octuple). Entrance must be 
left, exit(s) right. No holes should 
appear in upper or bottom lines. A zero 



0100- 04 00 00 00 
0104- 6F 97 FC FE 
0108- C8 DC 07 
010C- 7C 45 Fl 
0110- 55 F4 ID 
0114- 44 67 54 
0118- 6F CD F7 
011C- 68 18 04 
0120- 4E 4B 9C 
0124- 6B 7E F6 
0128- 49 20 A3 
012C- 0B 8E 28 
0130- 7A 3B 6E EE 
0134- 40 Al 08 02 
0138- 7F FD FF FE 
013C- 00 00 00 00 



82 
36 
E0 
3F 
82 
18 
FE 
82 
FA 
28 



so the length is 
bytes = 32 bits 



39 
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De SmartWatch: 'n slim klokje. 

Van tijd tot tijd verschijnen er IC ' s 
op de markt die in de categorie ei van 
Columbus vallen. De Dallas Semiconductor 
DS1216 is zo'n IC . Het is een real time 
clock. Nu niet eens kaal in de vorm van 
een IC, maar compleet met batterij , kris- 
tal en power-down logica. Geen kopzorgen 
dus. Het ei van Columbus wordt gevormd 
door de mechanische uitvoering van het 
geheel. Aan de onderzijde hebben we te 
maken met een 28-polige DIL aansluiting. 
Deze heeft een zogenaamde JEDEC-pinout , 
hetgeen inhoudt, dat de klok op de plaats 
van een 28-pins EPROM, EEPROM of SRAM 
ges token kan worden. Aan de bovenkant van 
de 9 millimeter hoge behuizing vinden we 
een 28-polige DIL voet. Alle pinnen aan 
de onderkant zijn doorverbonden met de 
overeenkomst ige pinnen aan de bovenkant, 
op 3 na: de CS op pin 20 en de voeding op 
de pinnen 26 en 28. Deze worden door de 
SmartWatch bestuurd. Men kan dus eenvou- 
dig een (E) EPROM of SRAM uit zijn voetje 
halen, de SmartWatch in dat voetje steken 
en tenslotte diezelfde (E)EPROM of SRAM 
in de SmartWatch steken. De SRAM of 
(E ) EPROM blijft hierbij volledig aan- 
spreekbaar. Betreft het een CMOS SRAM, 



dan houdt de batterij in de SmartWatch 
niet alleen de klok, maar ook het geheu- 
gen onder spanning als de computer is 
uitgeschakeld . De communicatie met de 
klok verloopt serieel. De klok kijkt naar 
de lijnen CS (20), DO (11) en WE (27). 
Normaal blijft het RAM/EPROM op de klok 
volledig bereikbaar. Men activeert de 
klok door 64 achtereenvolgende schrijf- 
cycli uit te voeren. Hierbij moet databit 
DO achtereenvolgens de volgende 8 bytes 
'zien': $C5 , $3A, $A3 , $5C, $C5 , $3A, 
$A3, $C5. Deze reeks mag onderbroken wor- 
den door willekeurige lees-cycli, doch 
niet door willekeurige schrij f operat ies . 
De kans dat een dergelijke reeks bij toe- 
val, en dus ongewild optreedt is 1 op 10 
tot de macht 19. Wordt de bovengenoemde 
reeks op DO herkend, dan onderbreekt de 
SmartWatch de CS naar het RAM, en kan er 
naar keuze naar de klok geschreven of uit 
de klok gelezen worden. De klok zelf be- 
staat ook uit 8 bytes die serieel via DO 
worden gelezen of geschreven. Nadat het 
64e bit gelezen/ geschreven is, wordt de 
toegang tot het RAM/EPROM weer automa- 
tisch hersteld. 

De klok zelf bestaat uit 8 bytes die als 
volgt zijn ingedeeld: 



Byte Functie 



Bij zonderheden 



0 
1 

2 
3 



6 
7 



lOden/ lOOsten seconden 
lOtallen/ eenheden sec . 
lOtallen/eenheden min. 
lOtallen/eenheden uren 



Dagnummer 



Datum 

Maandnummer 

Jaar ( lOtallen/eenh) 



BCD formaat 

BCD formaat, bit 7 altijd nul 
BCD formaat, bit 7 altijd nul 
BCD formaat 

Bit 7: 12 of 24 uurs formaat 
Bit 6: altijd nul 

Bit 5: AM/PM vlag bij 12h formaat 

In bits 0-2 

Bit 3: altijd nul 

Bit 4: RESET enable 

Bit 5: Oscillator aan/uit 

Bits 6 en 7: altijd nul 

BCD, in bits 0-5 

Bits 6 en 7: altijd nul 

BCD, in bits 0-4 

Bits 5, 6 en 7: altijd nul 

BCD formaat 



4 0 
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Net als de 64-bit toegangscode, dienen 
deze bytes serieel via DO gelezen of ge- 
schreven te worden. Een aantal bits ver- 
dienen een nadere uitleg. Bit 7 van byte 
3 bepaalt of de klok in 24-uurs of 
12-uurs formaat loopt . Indien voor 
12-uurs formaat is gekozen (bit 7 is dan 
1), dan stelt bit 5 van dit byte de 
voor /namiddag vlag voor. Na 12 uur 
9 B middags is dit bit gezet. Bit 4 van 
byte 4 is de RESET enable. Pin 1 doet 
namelijk dienst als RESET-ingang . Met 
deze pin kan een eenmaal gestarte 
toegangscyclus tot de klok worden afge- 
broken zonder dat de klokregis ters 
gewijzigd worden. Deze functie kan met 
bit 4 aan of uit gezet worden. Als . bit 4 
een 1 is, dan is de RESET-f unctie ge- 
disabled. Met bit 5 van byte 4 kan de 
interne 32 kHz oscillator aan- en uit- 
gezet worden. De oscillator is namelijk 
de grootste stroomconsument en bepaalt 
voornamelijk de levensduur van de inge- 
bouwde batterijen. De SmartWatch wordt 
standaard geleverd met de oscillator 
uitgeschakeld. Dan is bit 5 een 1. Een 
nul schakelt de oscillator in. De klok 
houdt rekening met het verschillend 
aantal dagen in de • diverse maanden. Ook 
schrikkeljaren worden correct verwerkt. 
Men kan helaas niet een willekeurig SRAM 
in het systeem nemen om de klok onder te 
steken. Men dient een zodanige RAM te 
kiezen, dan hierin geen schrijfcycli in 
op kunnen treden door periodieke inter- 
rupts (toetsenbord, software clock, of 
videogeheugen) . Dergelijke cycli zouden 
namelijk de toegangscyclus onderbreken. 
In 6502 systemen betekent dit, dat het 
RAM waarin de zero-page en de stack in 
opgeslagen zijn niet bruikbaar is. In een 
DOS65 systeem kan bovendien het SRAM op 
de CPU-kaart niet gebruikt worden: hierin 
loopt onder andere de softwareklok en 
wordt de systeem administrat ie bijge- 
houden. Voor DOS65 is daarom adres $2000 
gekozen als toegangslocatie . Om met de 
klok te kunnen communiceren is een 
utility geschreven dat de klok kan 
uitlezen en gelijk zetten. De naam van 
deze utility is SETSW. Er zijn in totaal 
drie verschillende versies van de 
SmartWatch verkrij gbaar . De eerste is de 
DS1216. Deze versie is bedoeld voor 2k 
byte en 8 kbyte CMOS SRAMs . De pinnen 26 
en 28 van de bovenste voet zijn doorver- 
bonden. De tweede versie is de DS1216C. 



Deze is bedoeld voor 8k byte en 32V byte 
CMOS SRAMs. Van deze versie is pin 26 
gewoon doorverbonden en treedt alleen 
battery-backup via pin 28 op . De laatste 
versie is de DS1216E. Deze is bedoeld 
voor EPROMs. De battry-backup werkt in de 
DS1216E alleen voor de interne klok. 
Verder kan men in een EPROM niet schrij- 
ven. De toegangscyclus en de uitlees/in- 
leescycli zijn dan ook iets anders 
gedef inieerd. AO doet nu dienst als 
data-ingang, terwijl A2 bepaalt of er in 
de klok gelezen of geschreven wordt. 
Toegang tot de klok wordt verkregen door 
64 leescycli uit te voeren met A2 nul 
(=schrijven) waarbij AO serieel de 
toegangscode voert. Hierna kan de klok 
worden geschreven door de te schrijven 
data op AO aan te bieden en A2 steeds nul 
te houden. Dit geschiedt door de sturen 
microprocessor leescycli in de EPROM te 
laten doen. De adresvolgorde wordt be- 
paald door de toegangscode of de te 
schrijven data. Het lezen van de klok na 
het aanbieden van de toegangscode is 
relatief eenvoudiger: op DO verschijnt de 
klokdata (wederom serieel). De klok kan 
dus gelezen worden door 64 leesoperat ies 
te doen en DO uit te filteren. In tegen- 
stelling tot de RAMversies kan bij de 
EPROMversies de toegangscyclus niet 
onderbroken worden omdat de EPROM slechts 
leescycli kent . 



Dallas Semiconductor wordt in 
Nederland vertegenwoordigd door: 
Alcorn Electronics B.V. Postbus 358 
2900 AJ Capelle aan den IJssel 
Telefoon 010-4519533 

Dit bedrijf is een groothandel en levert 
niet aan part iculieren . 



Jg. J& Jtf, Jtf. Jfr ^ Xf. ^ **> ^ *&> 



Tips, of: leve de Taiwan-klonen ! 

De komst van de Taiwan-klonen van de 
diverse IBM-computers maakt niet iedereen 
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even blij , zeker IBM niet . Ook is er een 
enorme verschraling waar te nemen in het 
niveau van de gemiddelde computer- 1 gek ' 
en in de keuze van het publiek voor een 
bepaalde computer. Toch is niet alles 
negatief. De moordende concurrentie , ge- 
combineerd met de enorme aantallen ver- 
kochte computers maakt dat ze erg 
goedkoop geworden zijn. Zo kun je bij- 
voorbeeld al een PC-XT kopen voor ca. 
£1. 1300.-. Voor dat geld kun je nauwe- 
lijks een Octopus of DOS65 computer 
bouwen. De lage prijzen gelden niet 
alleen voor de complete computers, maar 
natuurlijk ook voor de onderdelen waaruit 
ze zijn samengesteld . En hiermee kunnen 
we ons voordeel doen! 

- De voeding, of power supply. 
Alle klonen werken met een geschakelde 
voeding. De XT-machines hebben bijna 
altijd een voeding van 135 Watt, de 
AT-compatibles doen het met 180, 200 of 
220 Watt voedingen. Voor ons zijn de 135 
XT-voedingen het aantrekkelij kst . Alle 
voedingen zien eruit als een blikken doos 
met daarin een ventilator, een netentree, 
een netuitgang, de netschakelaar en wat 
draden met connectors. Halen we de blik- 
ken doos om de voeding weg, dan blijkt 
deze een print te bevatten ter grootte 
van een Eurokaart met daarop de complete 
geschakelde voeding. De ventilator blijkt 
zonder uitzondering voor 12 Volt DC 
g^schikt te zijn. We houden dus een prima 
inbouwvoeding over, compleet met fan voor 
de keeling van het systeem. De aanslui- 
tingen bestaan vrijwel altijd uit het 
volgende. Eerst zijn er vier aanslui- 
tingen voor diskdrives, compleet met die 
lastig te verkrijgen vierpolige stekker. 
Verder zijn er nog een of twee connec- 
tors, bedoeld voor het moederbord van de 
PC. De draden hierin zijn meestal als 
volgt gecodeerd: 



Klei 



Spanning 



Max. St room 



Rood 

Geel 

Blauw 

Bruin 

Wit 

Zwart 



+ 5 Volt 
+ 12 Volt 
- 5 Volt 
- 12 Volt 
'Power Good' 
Ground 



15 Ampere 
4.5 Ampere 
0.5 Ampere 
0.5 Ampere 
TTL niveau 



De witte Power-Good lijn kan eventueel 
met de RES-aansluiting van de bus ver- 
bonden worden. De voeding is zodanig 
geconstrueerd, dat overschrij ding van de 



maximum stroom op een uitgang automatisch 
afschakelen inhoudt . De voeding wordt 
weer ge-RESET, door de netspanning uit- 
en weer in te schakelen. Hetzelfde geldt 
als het maximum vermogen wordt over- 
schreden. De voeding is in staat de hoge 
startstromen die op de +12 Volt optreden 
bij het starten van Winchesters te 
leveren. Tenslotte is alleen de + 5 Volt 
gestabiliseerd (en soms instelbaar) . De 
andere uitgangen lopen met deze spanning 
mee. Een goedkope, doch voldoende grote 
voeding voor uw nieuwe systeem! 

- De kast. 

De PC-XT klonen worden meestal gehuisvest 
in een kast waarvan de bovenkant opge- 
klapt kan worden. Hierdoor is de inhoud 
van de kast goed bereikbaar. De kast is 
hoog genoeg om er een Eurokaartrekj e in 
te monteren. Verder heeft de kast stan- 
daard openingen voor 4 slim-line drives 
en worden er af dekplaat j es meegeleverd 
voor de niet gebruikte gaten. Het monte- 
ren van drives in zo'n kast is een 
fluitje van een cent. Aan de achterkant 
is de kast voorzien van alle gaten voor 
de montage van een voeding (zie boven) . 
De maten van de voeding en de bevestiging 
zijn redelijk genormaliseerd . De voeding 
wordt vastgezet met vier schroeven, die 
meestal met de voeding worden meege- 
leverd. De meeste kasten hebben vaak ook 
al gaten voor RS-232 connectors en derge- 
lijke. Het enige nadeel aan de kast is 
dat hij van staalplaat gemaakt is. Dit 
bewerkt aanzienlijk moeilijker dan 
aluminiumplaat . 

- Het toetsenbord. 

Het toetsenbord van de klonen is van een 
bij zonder type. Het wordt met de computer 
verbonden met een vijfpolige DIN-steker. 
1 lijn wordt niet gebruikt . De verdere 
lijnen zijn: +5 Volt, GND, keyboard clock 
en keyboard-data. De tweesignaallij nen 
zijn bidirectioneel . Worden ze beide ge- 
durende 20 ms laag gehouden, dan voert 
het toetsenbord een selftest uit. Het 
keyboard stuurt geen ASCII-tekens naar de 
computer, maar toetsnummers . Wordt een 
toets ingedrukt, dan wordt het toets- 
nummer serieel over de lijn keyboard-data 
gestuurd. Er worden steeds acht bits (1 
byte) verzonden. Verder wordt bij ieder 
bit een clockflank gegenereerd waarmee 
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een ontvangend schuif register geclockt 
kan worden. Wordt een toets weer losge- 
laten, dan wordt wederom het toetsnummer 
verzonden, maar nu met het 8ste bit 
gezet. Als een toets wordt vastgehouden, 
dan zal het toetsenbord uit zichzelf de 
code voor loslaten en drukken gaan 
versturen, waardoor de ontvangende 
computer denkt, dat de toets reperteert. 
Dit laatste geldt niet voor de beide 
shift toetsen, en de Alt, Ctl, en Lock 
toetsen. Het is niet moeilijk het toet- 
senbord te interfacen met een VIA. Voor 
DOS65 is bijvoorbeeld een driver voor een 
XT- toetsenbord beschikbaar. Let op: 
AT-toetsenborden hebben een andere 
toetsnummering dan XT-toetsen borden. Wei 
blijft binnen een familie de nummering 
gelijk: de Esc op een XT- toetsenbord 
heeft altijd toetsnummer 1, onaf hankelijk 
waar deze toets zich in het toetsenbord 
bevindt . 

- Diskdrives. 

Ook diskdrives profiteren van de grote 
aantallen en worden goedkoper. Dit geldt 
echter niet voor alle typen. De standaard 
drive voor klonen is de 40-track dual 
sided drive. In AT-klonen worden welis- 
waar 80- track drives toegepast, maar deze 
hebben een hogere spindelsnelheid en zijn 
voor DOS65 en OHIO-OS65D niet te gebrui- 
ken. Bedenk, dat de enorme capaciteit van 
een 80 track drive maar zelden volledig 
wordt benut, dat zo'n drive duurdere 
schijfjes vereist, en dat de data kwets- 
baarder is. AO-track dual sided is zo gek 
nog niet. 

- Hard-disks. 

Ook deze worden steeds goedkoper: er zijn 
al aanbiedingen van 20 Mbyte drives met 
controller voor minder dan fl. 650.-. Aan 
de controller heb je niets: niet kopen 
dus . Alle drives voor klonen zijn voor- 
zien van de Seagate ST506 interface. Er 
bestaan OHIO- schema's om zo'n drive aan 
te st-uren. Voor DOS65 komt er een SASI 
controller board bij te pas. Deze zijn 
niet gemakkelijk goedkoop te krijgen. 

Wellicht kunt u uw voordeel doen met 
deze ontwikkelingen in de markt als u uw 
systeem nog moet bouwen of het weer eens 
op de helling zet. Tijdens de komende 
HCC-dagen worden de prijzen nog lager, 
let maar op! 



NIEUW VAN ACORN COMPUTERS : DE ARCHIMEDES 

Wil je als computerf abrikant , midden 
tussen het MS-DOS geweld, iets nieuws 
brengen, dan moet dat ook wel iets 
bijzonders zijn. De mensen van ACORN 
hebben zich dat wellicht goed 
gerealiseerd toen ze begonnen met de 
ontwikkeling van hun nieuwste computer, 
de Archimedes. Welnu, ze hebben duidelijk 
hun best gedaan. De Archimedes is een 
veelbelovende ontwikkeling, die de 
konkurrentie zeker tot nadenken zal 
stemmen . 

Het hart van de Archimedes bestaat niet 
uit een gangbare processor, zoals de 
6502, 8086 enz . De mensen van Acorn 
ontwikkelden zelf een geheel nieuwe CPU, 
die men R.I.S.C. gedoopt heeft. R.I.S.C. 
staat voor Reduced Instruction Set 
Computer. De filosofie die hier achter 
schuilt, is het gegeven, dat veel CPU's 
een aantal weinig of helemaal niet 
gebruikte instrukties bevatten. ( v^ie 
gebruikt bijv. Indirect Indexed X van de 
6502 ?) Door de instrukt ieset te beperken 
tot het hoogst noodzakeli j ke , werd het 
mogelijk deze instrukties relatief snel 
te laten uitvoeren. Bovendien is de 
R.I.S.C. een 32 bits CPU. Dit resulteert 
in een snelheid van 4 MIPS (miljoen 
instrukties per seconde). Volgens de 
gegevens van Acorn nog lang niet de 
limiet; in het laboratorium schijnt reeds 
18 MIPS gehaald te zijn. 

Van alle eigenschappen zijn er twee wel 
zeer vermeldenswaardig : de machine kan 
zowel MS-DOS (in software) als de 6502 
(in hardware!) emuleren. Volgens opgave 
emuleert de Archimedes MS-DOS acht keer 
zo snel dan de standaard MS-DOS machines. 
De 6502 schijnt drie keer sneller dan 
normaal geemuleerd te worden. 

Waarschijnlijk wordt dan wel uitgegaan 
van een 1 MHz 6502. 

Van de Archimedes verschijnen twee 
series: de 300 en de 400 serie. De 300 
serie is de standaard serie, en bestaat 
althans voorlopig uit de 300 en de 310. 
De 300 heeft 512 Kbyte RAM, de 310 heeft 
1025 Kbyte RAM. Beide machines zijn 
voorzien van 512 Kbyte ROM, en beschikken 
over een 1 Mbyte ( ongef ormatteerd ) 3,5 
inch disk drive. Beide machines 
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beschikken over uitbreidingsmogelijk- 
heden, Of hiermee een uitbreiding naar de 
400 serie bedoeld wordt, is echter niet 
geheel duidelijk. De 400 serie bestaat 
uit de 410 en de 440. De 410 heeft 
dezelfde eigenschappen als de 310, maar 
is bovendien uitgebreid met een hardware 
floating point unit optie, een 
co-processor bus, een hard disk 
controller, en een backplane (bus) met 
vier slots. De 440 is het topmodel. 
Eigenschappen identiek aan de 410, echter 
voorzien van 4 Mbyte RAM en een 20 Mbyte 
hard disk. 

Voor alle machines zijn er een aantal 
uitbreidingskaarten : 

- hard disk controller (voor de 300 
serie) 

- ROM expansie module 

- MIDI interface 

- MS-DOS co-processor 

- SGS1 

- hardware floating point unit 

- Ethernet interface 

In de toekomst zullen nog 



interfaces 
komen . 



meerdere 
en uitbreidingen beschikbaar 



De software: Het operating systeem van 
de Archimedes heet ARTHUR, en is een 
verbeterde versie van het BBC Micro 
operating systeem. De BASIC die wordt 
meegeleverd heet BBC BASIC V, en is een 
verbeterde versie van de bekende BBC 
Basic. Ook andere programmeertalen , 
ondermeer C, ISO-PASCAL, FORTRAN, Lisp en 
Prolog zijn al leverbaar. Op korte 
termljn komen extra utilities 

beschikbaar, zoals teks tverwerkers , 
development tools, databases enz . 



CPU 



RAM 



ROM 

DISPLAY 



De prijzen van de Archimedes liegen er 
niet om; afhankelijk van model en 
konfiguratie dient men te rekenen op pirn, 
f 3500,- tot circa f 6000,- 

Dan nog enkele specif icaties : 

ARM (Acorn RISC Machine). 
Klokfrekwentie 4 of 8 MHz. 
0,5 tot 4,0 Mbyte, 

afhankelijk van de 

uitvoering . 
512 KByte 

Totaal 18 modes, tekst 
maximaal 132 kolommen, 32 
regels, oplossend 
vermogen maximaal 640 x 256 
pixels, maximaal 256 kleuren. 
2 geluidskanalen . 
Een 3,5 inch drive, 

kapaciteit 1 Mbyte. 

Aansluiting 20 Mbyte 
Winchester . 

RS432. Baudrate 75 tot 19200. 
Centronics parallel . 
IBM-achtig toetsenbord, 103 
toetsen, aansluiting voor 
muis . 



GELUID 
DRIVES 



I/O 



KEYBOARD: 



De importeur 
Eeckhorn B.V. 
Poortweg 6, 
2612 PA Delft 
tel. 015-569365 



van de Archimedes is : 



Vr ->V Vc- vV Vr *V Vc Vc >V "»V Vc Vc >V ->V ->V -»V Vc ->V 



Vr v< . Vc . v<r ~ v ~ v vc- ->V Vsr ->V Vc -V Vc V<- Vc >V 



VRAAG en AANBOD 
Te koop: 

Een compleet Commodore computersysteem 
CBM 8032 80 kolom computer (32k RAM) 
CBM 4040 dual diskdrive 
EPROMprogrammer (2716, 2532 en 2732) j 
IEEE naar Centronics interface | 
Vaste prijs: fl. 800.- 

Te bevragen bij : Nico de Vries, Telef- 



bestaande uit: 

en een berg software, waaronder Moser 
assembler, Wordcraft tekstverwerker , 
een database, een vracht spelletjes 
en utilities. 

>on 010-4517154 
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/* 
/* 
/* 



Convert normal ASCII string into big characters in a file 



*/ 
*/ 
*/ 

A A A AAA Art / 



♦♦define EOL 10 
♦♦define EOF -1 
♦♦define NULL 0 

♦♦define lenlin 80 

♦♦define maxch 61 /* at this moment max. de-fined char. */ 

♦♦define chstr " ABCDEFGH I J KLMNQPQRSTUVWXYZ 1234567890 C 3= ! . , $ <>&:;*/' \ \ <) %" 



int sh; 

int sd; 

int hv; 

int f o ; 

int maxlen; 

int lxstringC73", 

int hpstr ingCmaxch] ; 

char txtstringClenlinD 

char f cstr ing[ lenl in3 ; 



flag, l=hor, 0=ver 



/* height of one dot 
/a- width of one dot 
/-a- hor izontal /vertical 
/■a- output file pointer 
/* maximum length of line 
/■a- contains pointers to text strings 
/* contains pointers to character strings 
/* string to convert 
/* contains fill out characters 



*/ 
*/ 
*/ 

A"/ 

*/ 
*/ 
*/ 
*/ 
*/ 



mai n ( ) 

{ char fnameC213; 

char tp0C lenl i n3, tpl C 1 enlin3,tp2L lenlin 3, tp3Llenlin3,tp4t lenlin3, 
tp5C lenl in3 , tp6E lenl in3 ; 

lxstring[03 = tp0; 

1 xstr i ngC 1 3 = tpl ; 

lxstring[23 = tp2; 

lxstringC33 = tp3; 

lxstr ing[4j = tp4; 

3xstringC53 = tp5; 

lxstringC63 = tp6; 

data( ) ; 



-K-txtstr i ng = NULL; 
*fcstring = NULL; 
sh = 1 ; 
sd = 25 
hv = 1 ; 
maxlen = 80; 

while (str len ( txtstr ing) 
t pr intf ( "Text (max. 

gets(txtstring) ; 

printf("Fill out chad's 
prints ( "Height of one dot 
pr i ntf ( "Width of one dot 
pr -intf ( "Hor/Ver = 1/0 
hv = hv & 1 ; 
if (hv) 

i printf ( "Max. line lenqth 

scanf ( "%d" , kmaxlen) ; 



/* fill in defaults */ 



: = 0) 

80 characters) 



C text 3: ") ; gets (f est ring) ; 

C7.8d3 : " ,sh) ; scanf ( "%d" ,&sh) ; 
£%8d3: ",sd) ; scanf ( "%d" ,&sd) ; 
C%8d3: ",hv) Jscanf <"%d",&hv) 5 



L%8d3 : ", maxlen) 



> 

else 



maxlen = lenlin; 



if (maxlen <= 0) 

if (maxlen > lenlin) 

if (sh <= 0) sh = l; 

if (sd <= 0) sd = l; 



maxlen = 
maxlen = 



lenl in; 
lenl in; 



[%s3 : " , f name) ; scanf ( "%s" , f name) ; 



strcpy (f name, "text. tmp " ) ; 
pr i ntf f "Fi 3 ename 
fo = f open (f name, "w" ) ; 
if (fo == NULL) 
I pr intf ( "Can' t open/write file %s \ n " , f name ) 5 

exit (-1) ; 
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convert ( ) 5 

print+C'File %s filled with big characters\n " , f name) ; 
fclose(fo) 5 
exit (0) ; 

convert ( ) 

* int i nd , hi , h2, h3, h4, h5, 1 inp; 
char chs,*pt , *r f , *pf , *hp,*pl 5 

p t = t x t s t r i n g ; 
p-f = f c s t r i n g 5 
r 4 = c h 5 1 r ; 

) i nc = 0 5 
whilellpt) 

C *pt = toupper C#pt ) i /* conver t to upper case */ 

if Mind = index (rf,*pt) ) == -1) 

{ prints ("Character ? %c 5 not imp 1 emented \n" , *pt + + ) ; 

pf + + 5 
cont i nu.e 5 

i 

j 

hp = hpst r i ngC i nd 3 ; 
while C*hp> 

hi = MM*hp + +) k 7) * 16) + M*hp + +) & 15)); 
for (h4=i ', h4<=sd; h4++) 
{ h3 = 64 5 

for \h2=0; h2<7; h2++) 

{ if (h3 8* hi) chs = toupper (*pf ) ; 

e 1 se chs = 7 7 » 

i-f (hv) *( lxstr ingLh23 + 1 i np ) = chs; 
else for ( h5=l 5 h5< =sh ; h5++ ) putc < chs , fo ) ; 

h3 = h3 / 2; 

} 

1 i n p + + ; 

if (!hv) putc (EOL,+d) 5 

| 

■» 

if <bv* 

{ i 4 - \\inp > (max 1 en - ( 7 -X- sd ) ) ) 

*( lxstr ing[h23 + 1 i np + 1 ) = NULL ; 
prtlxsO J 
1 inp = 05 



e 1 se 



} 



for (h5=i;h5 <= sdjh5++) 

for (h3=0;h3 <= 6;h3++) 

*< ixstr ingLh33 + linp) = 

i i np + + 5 

} 



~lse for (h5=l",h5 < = (2 * sd);h5++) putc (EOL , fo) ; 
pt + +; 

pf + + ; 

if M 1 i np > 0) & hv) 

*< lxstr -ingChZJ + linp + 1) = NULL 5 
pr 1 1 xs ( ) ; 

} 

I 

prtlxsO 
t char j/tptl 
int n , i ; 

for (n = 6 |n >- 0" ? n--) 
{ for ( i = l 5 i <= sh; i + + ) 
i pt = 1 xstr i ngt n 3 ; 

whi le (*pt ) putc <*pt + +, f o) ; 

putc (EOL, f o) 5 

} 

for U-ifi <= sh;i++) put c < EOL , f o ) 5 

} 
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ini t-fc ( ) 
{ char ifpt 

i-f 
i 



= txtstring; 
= -fcstring; 

( (p-f L13 == NULL) & (ifp-f 
whi le (ifpt + +) ifpf + + = 
return; 



NULL) ) 
if -fcstring; 



/* fill out character */ 



i-f (strlen(pt) != strlen(p-f)) 
while(ifpt) *p-f + + = ifpt + +; 



/if else + i 1 1 out with text */ 



/# return index o-f character t in string s or -1 i-f none if/ 
i ndex ( s , t ) 
char sC3,t; 
{ int i; 

-for (i = 0 ;sLi3 ! = NULL; i+ + ) { i-f <sLi3==t) return(i); > 
return < -1 ) ; 

data ( ) 



/* HOOFDLETTERS DATA */ 



hpst r 
hpst r 
hpst r 
hpstr 
hpstr 
hpst r 
hpstr 
hpstr 
hpstr 
hpstr 
hpstr 
hpstr 



/* DATA VAN DE GETALLEN */ 

hpstr ingC 26 3 ="02037?" 5 
hpstr i ngC28 3 = "22414936" ; 
hpstr i ngC 30 3 = "27494931 " ; 
hpstr inqC 32 3 = "61 110907 " ; 
hpstr i ngL 34 3 = "0649291 >" ; 



ngC 03 




"7>09097>" ; 




/if 


A 


if/ 


ngC 23 




"3>414141 " 5 




/* 


C 


*/ 


ng[ 43 




» 7749494 1 » • 




/* 


E 


if/ 


ngL 63 




"3>41414979" 


> 


/* 


G 


if/ 


ngL 83 




"417741 " 




/if 


I 


if/ 


ngC 103 




" 77083641 " 5 




/if 


K 


if/ 


ngC 123 




" 770204027?" 




/if 


M 


*/ 


ngL 143 




"3>41413>" 5 




/if 


0 


*/ 


ngC 163 




"3>51617>" ; 




/if 


Q 


*/ 


ngL 133 




"26494932" ; 




/* 


S 


if/ 


ngL 20 3 




" 3740403'?" ; 




/if 


u 


if/ 


ngL223 




" 374020403?" 


5 


/* 


w 


*/ 


ngC243 




" 0 1027 < 0201" 


i 


/* 


Y 


*/ 



hpstr 
hpstr 
hpstr- 
hpstr 
hpstr 
hpstr 
hpstr 
hpstr 
hpstr 
hpstr 
hpstr 
hpst r 



ngC363= 
ngC383= 
nq[403= 
ngC423= 
ng[443= 

ngC463= 
nq[483= 
ngL503= 
r»q[52 3 = 
ngC543= 
ngL 56 3= 
ngL58 3= 



hpstr i ngL 603 = 



"7741 " ; 
"14141414" ; 
"02015906" ; 
" 147?14"7?14" ; 
" 0406770604 " ; 
" 2060" ; 
"00000000" ; 
"41221408" ; 

"6<6< " ; 

"2214771422" 5 
"0307" ; 
"K2241 H ; 

"2616083432"; 



/if 1 

/if 3 

/if 5 

/* 7 

/* 9 



/* DATA VAN OVERIGE TEKENS */ 



hpstr ing[ 1 3="7?494936" 
hpstr ingC 3 3 = " 7 ? 4 1 4 1 3 > 1 • 
hpstr i ngL 5 3 = " 77090901 " 
hpstr i ngL 7 3 = " 7708087? " 
hpst r i ng [ 9 3 = " 6040403? " 
hps t r i ng L 1 1 3 = " 77404040 " 
hpstr ingt 13 3= " 7?061< 307 • 
hps t r i ng L 1 5 3 = " 77090906 " 
hpstr ingt 173 = "77090976" 
hpstr ingt 19 3 = "0101770101 " ; 
hpstr i ngL 21 3 = "031< 60K03 " ; 
hpstr ingt 233 = "41 36083641 " ; 
hpstr i ngL 253 = " 61 5 1494543" ; 



/* 



/-* B */ 

/* D if/ 

/if F */ 

/* H */ 

/* J */ 

/* L */ 

/* N */ 

/* P */ 

/* R */ 

/* T */ 

/* V */ 

/* X */ 
Z 



*/ 



*/ 


hpstr i ngL 27 3= 


"6251494542" ; 


/* 


2 




*/ 


hpstringL29J= 


"3>207020" ; 


/* 


4 


if/ 


*/ 


hpstr i ngL31 3 = 


"3<4: 4930" ; 


/# 


6 


*7 


*/ 


hpstr ingL333 = 


"36494936" ; 


/if 


8 


if/ 


*/ 


hpstringL353= 


"3>ai.493>^ ; 




0 


if/ 



/* 


[ 


if/ 


hpstr i ngL 37 3 = 


"417?" ; 


/if 




if/ 


/if 




if/ 


hpstr ingL393 = 


"5?5?" 5 


/if 




if/ 


/# 




if/ 


hpstr i ngL41 3 = 


" 08083 >0808" J 


/if 


+ 


if/ 


/if 


# 


if/ 


hpstr i ngL43 J = 


"08080808" ; 


/if 




if/ 


/if 




if/ 


hpstr ingL453 = 


" 6060 " ; 


/if 




if/ 


/ X 




if/ 


hpstr i ngL473 = 


" 2649774932" ; 


/if 




if/ 


/if 




if/ 


hpstr ingL493 = 
hpstr ingLSl 1=- 


"08142241 " ; 


/if 


< 


if/ 


/if 


/ 


if/ 


"3649552250" ; 


/if 




if/ 


/* 




*7 


hpstr i ng L 53 3 - 


"2<6< " ; 


/if 


; 


if/ 


/if 




if/ 


hpstr i ngL 55 3 = 


"2010080402 " ; 


/if 


/ 


if/ 


/if 


» 


if/ 


hpstr i ngL573 = 


"0204081020" 5 


/if 


\ 


if/ 


» 


( 

% 


if/ 
*/ 


hpstr ingL593 = 


"4122K"; 


/if 


) 


if/ 
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DEKh H P K E N N E R M A R K T I N F □ 



NIEUWE CHIPS VAN GTE 

Wie denkt, dat de 65xx familie inmiddels 
tot de verouderde processoren behoort, 
heeft het goed mis ! Dat blijkt onder 
andere uit het feit, dat GTE Micro- 
circuits onlangs een aantal nieuwe 
'bouwstenen' introduceerde , onder het 
motto 'still going strong'. Dit bewijst 
maar weer eens , dat er wat betreft de 
65xx familie geen sprake is van 
veroudering en/of achterhaald zijn. 

Op zich is dat niet zo verwonderlijk; de 
65xx familie, met de 6502 als middelpunt, 
heeft zijn kwaliteiten duidelijk bewezen. 
Zo langzamerhand mag je wel konkluderen, 
dat de 6502 de meest efficiente 8 bits 
processor is. 

Enkele voorbeelden : Een BASIC programma 
draait op een 2 MHz 6502 sneller dan op 
een IBM PC. Sterker nog: een 6502 op 3 
MHz benadert de performance van de 68000. 
In veel industriele toepassingen geniet 
de 6502 de voorkeur boven tal van andere 
8 en zelfs 16 bits processoren ! 

Terug naar het onderwerp: nieuwe chips 
van GTE : 

De standaard 65xx familie (65C02, 65C22, 
65C51 enz.) is nu ook beschikbaar in 4 
MHz versies. Er schijnt zelfs sprake te 
zijn, dat er volgend jaar 6 MHz en 8 Mhz 
versies op de markt komen! 

G65SC37 CMOS Timing and Keyboard/Display 
Interface (TKDI) 

Deze 68 pens chip is in staat om geheel 
autonoom 64 toetsen te scannen, en 
bovendien 64 display indicators (bijv. 
LED's) aan te sturen. De chip beschikt 
over een tweetal tussengeheugens , elk van 
8 bytes. Bovendien genereert de chip een 
nauwkeurig timing signaal, bijvoorbeeld 
voor Real Time Clock toepassingen. 
Data-overdracht kan zowel parallel als 
serieel plaats vinden. De interfacing 
vindt plaats met behulp van de ons 
welbekende signalen; D0-D7, A0-A1, CS, 
R/V; phi2, RES enz. De timing kan plaats 
vinden door de systeemklok, maar ook door 
een externe klok. 



G65SC150 CMOS Communications Terminal 
Unit (Telecommunication Microcomputer) 

Een opmerkelijke chip, eigenlijk een 
single chip micro-processor, maar wat 
betreft de struktuur identiek aan de 65xx 
interface . 

De mogelijkheden van deze interessante 
chip: 

* genereert signalen compatible met 
'switched telephone networks' of 
'packet switched data networks'. 

* Modem faciliteiten tot 1200 baud 

* Voorzien van DP (dial pulse) en DT 
(dial tone) mogelijkheden. 

* In low power mode is het stroomverbruik 
slechts 300 micro-ampere. Dit maakt 
voeding vanuit het telefoonnet mogelijk 

* On chip geheugen : 2K ROM, 64 bytes 
RAM, extern uit te breiden tot 64 K 

* Twee sinus generatoren 

* 65Cxx programmeer struktuur 

* 27 I/O lijnen 

Van beide chips zijn alleen nog maar 
voorlopige gegevens beschikbaar. Wanneer 
nadere gegevens bekend zijn, zullen deze 
gepubliceerd worden. 

# # # # // # # # # # # # // # # # # # # # 



65C02 Tip(je). 

Bij studie van het datasheet blijkt, 
dat alle aansluitingen van onze grote 
vriend, de 65(C)02 CPU, bedoeld zijn voor 
TTL. Er is echter 1 uitzondering : de 
clockingang phiO (pin 37). Deze pin 
blijkt andere logische niveaus te ver- 
eisen. Bij het nul-niveau gaat alles goed 
bij aansturing vanuit een TTL-uitgang, 
maar bij een logische 1 wordt de spanning 
in theorie niet hoog genoeg. Door de 
TTL-uitgang een beetje te helpen met een 
weerstandje van 1 kohm naar de plus, 
wordt het 1-niveau veel mooier. En 
hiermee wordt de onderlinge verhouding 
tussen phil en phi2 verbeterd. Dit pro- 
bleem blijkt zich vooral voor te doen bij 
de 65C02. Dus : even een pull-up weer- 
standje van lkohm naar de plus (5 Volt) 
als de phiO pin vanuit een TTL-uitgang 
wordt gestuurd. 
(Opgemerkt door Ad Brouwer) 
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VERZEKERING VAN PERSONAL COMPUTERS 



Verzekerd kunnen worden de* micro-computers, bestemd voor prive gebruik. 

Deze apparatuur is ook buiten de woning of de bedr i j f sruimte verzekerd. 
De verzekering is namelijk van kracht in de Benelux en West-Duitsland . 



VERGOED WORDEN: 

1. schaden aan de apparatuur veroorzaakt door: 

- brand, ontploffing en kortsluiting (incl. eigen gebrek) 

- een van buiten komend onheil. 

2. verlies van de apparatuur door diefstal. 

- diefstal van de apparatuur buiten het in de polis 
genoemde pand is verzekerd na braak. 

3. de bereddingskosten die zijn gemaakt tot vermindering 
van schade aan de apparatuur. 

4. de opruimingskosten tot 10 % van de op apparatuur 
verzekerde som. 



SCHADEVERGOEDING 

De reparat iekosten worden vergoed: 

Bij totaal verlies wordt de nieuwwaarde uitgekeerd. De vergoeding geschiedt 
echter naar dagwaarde indien de waarde minder dan 40 % van de nieuwwaarde is. 



NADERE BIJZONDERHEDEN 

De verzekering wordt gesloten voor de duur van 1 jaar en wordt stilzwijgend 
verlengd voor dezelfde termijn. 

De premie voorwaarden worden op aanvraag verstrekt voor: 

- apparatuur die in beroep of bedrijf voor andere dan administrat ieve 
doeleinden wordt gebruikt . 

- apparatuur in gebruik bij onderwij sinstellingen en verenigingen . 

LET OP ! ! 

Leden van de Kim gebruikers club nederland betalen geen poliskosten. 

INLICHTINGEN: ADMINISTRATIEKANTOOR A. METZLAR 
VOORBURGGRACHT 479 
1724 RH OUDKARSPEL 
TEL. 02260-16889 



TECHNITRON TLP-12 LASER PRINTER 

- U HEEFT EIGENLIJK GEEN ANDERE KEUZE! 




■ 12 pagina's per minuut (max.) 

■ tot 10.000 afdrukken per maand 

■ 8 ingebouwde lettertypes; 
32 afdruk-combinaties 

■ unieke "FontMaker" service 



■ unieke "FormsMaker", 
formulier- en logo service 

■ 3 ingebouwde hardware- 
emulaties 

■ flexibele in- en uitvoer van papier 



Technitron 

DATA 



Technitron Data B.V. 

Zwarteweg 110, Postbus 14, 
1430 AA Aalsmeer 
tel. 02977-22456 
telefax 02977-40968 
telex 13301 



Vestigingen in: 

BONDSREPUBLIEK DUITSLAND - DENEMARKEN - ENGELAND - FRANKRIJK - ITALIE - NOORWEGEN - VERENIGDE STATEN ■ 



